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ABSTRACT.— Two roRTRAN 1v computer programs were developed to facilitate reduction of mete- 
orologic data from irrigated and nonirrigated plots at Provo, Utah. The first program compiles 
and tabulates daily, monthly, and yearly summaries of precipitation as rain and/or snow, snowfall, 
total snow cover, soil moisture, dew. relative humidity, potential evaporation, cloud cover, and 
wind. Temperature values are tabulated for measurements taken in а standard weather shelter. 5 
cm beneath soil surface under grass cover. at soil surface under grass cover. and on bare ground. 

The second program enables complete computerized (Calcomp) construction, labeling, and graph- 
img of 10 different meteorologic measurements and 5 calculated comparisons of temperature means. 

Advantages of the first computer program relate generally to that obviously noticeable with 
any computerized tabulation. Those of the second program relate more specifically to the greatly 
reduced cost of computerized graphs compared with those produced manually, as well as to the 
marked reduction of errors compared with the number frequently associated with the usual tedious 
and laborious plotting of voluminous weather data. 


Meteorologic data collected for the year demonstrated the beneficial effect of irrigation in the 


creation of microenvironments for 


INTRODUCTION 


A comparison of meteorologic measure- 
ments from irrigated and nonirrigated 
plots іп Provo, Utah, for 1970 through 
1972 was published recently by Andersen, 
Wright, and Fox (1974). Included in their 
report was a detailed description of the 
study area, instrumentation employed, 
method of handling meteorologic data, 
and а series of manually reproduced 
graphs depicting the results for those three 
years. The current report is designed as 
a companion article to the one referred 
to above. It extends the meteorologic 
measurements through 1973 for an ad- 
jacently located plot watered via sprink- 
ling as opposed to flood irrigation used 
in the previous project. Furthermore, it 
emphasizes those changes that have been 
incorporated to enable the graphing of 10 
different meteorologic measurements and 
3 comparisons of calculated means by a 
Calcomp plotter. 

The importance of irrigation in creating 
optimum microenvironments for biolog- 
ical organisms has been substantiated for 
such invertebrates as mosquitoes (Rainy 
and Hess, 1967; Reeves and Hammon, 
1962), snails ( World Health Organization, 
1950), and nematode larvae (Furman, 
1944; Honess and Bergstrom, 1966; Fox, 
Andersen, and Hoopes, 1970; and Wright 
and Andersen, 1972). Тһе importance 
was elaborated upon ole by Andersen 
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living organisms. 


(1974) thus. will not be dis- 


cussed here. 


and. 


DESCRIPTION or EXPERIMENTAL PLOT 


The experimental plot measured 10 x 
30 m and was located at the Brigham 
Young University Animal Science Farm, 
Provo, Utah, adjacent to the plot used in 
the study by Andersen et al. (1974). The 
coordinates of the station site, elevation, 
description of vegetative cover, soil type 
and drainage, instrumentation, and meth- 
od of collecting data were the same as re- 
ported earlier. The plot was divided into 
an irrigated and a nonirrigated section 
separated by an elevated dike. Addition- 
al diking, aproximately 8 in (20 cm) 
high, was also placed around the upper 
border and sides of the plot to prevent any 
flood irrigation waters from entering the 
experimental area. Beginning in May 
the irrigated portion was sprinkled each 
Monday with a total of 1 in (2.5 cm ol 
water as measured in the rain gauge. This 
was applied at an approximate rate of 0.5 
ihr. In June the amount was in 
creased to 1.5 in (3.25 cm) and in July 
to 2 in (5.0 cm). The amounts were re- 
versed for August, September, and Oc- 
tober, after which time sprinkling ceased. 
This reginien for 1973 added a total of 39 
in (97.5 cm) of water to the irrigated plot 
over the six month period. 
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DESCRIPTIONS OF PROGRAMS 


Two FORTRAN Iv programs, one for 
data tabulation and a second for Calcomp 
graphing, were developed for this project. 
Figure 1 outlines the collation and hand- 
ling of meteorological data and Figures 2 
and 3 illustrate flow charts for the data 
tabulation and Calcomp graphing pro- 
grams respectively. All meteorologic data 
for the year were entered on specially de- 
signed worksheets (Figs. 4 and 5), key- 
punched on 80-column IBM cards, and 
handled as diagrammed. АП mensural 
data not already in the metric system 
were so transposed by appropriate con- 
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version formulae. Also, the printing of 
all negative or zero values was suppressed 
whenever such data were not meaningful. 

The first program compiles апа tab- 
ulates daily, monthly, and yearly sum- 
maries of all meteorologic data collected. 
Tables 1, 2, and 3 are sample printouts of 
one month’s data (May 1973), and Tables 
4 and 5 are the two-page annual sum- 
mary sheets. 

The second program developed for the 
project enables complete computerized 
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Flow chart for the data tabulation 
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program. 


June 1975 ANDERSEN, ROPER: 
plotting of 10 different meteorologic 
measurements and 3 calculated mean tem- 
perature comparisons. Each deck of pro- 
gram data for any one year must be pre- 
ceded by a control card identifving the 
year and number of days in that year. 
Also mcluded on the control card for the 
Calcomp plotting program is a list of 
identifying numbers which permit selec- 
tion of desired graphs for that year. These 
graphs are then completed sequentially as 
selected. 

Figures 6 through 18 depict computer- 
ized reproduction of 10 different metero- 
logic measurements taken during 1973 





READ CONTROL 
CARD & 
POSITION TO 
YEAR'S DATA 


METEOROLOGIC DATA 905 


and 3 calculated comparisons of means 
as indicated on each individual legend. 
Table 6 gives information for the 1973 
data regarding the approximate run times 
and current costs for the IBM 360/65 in- 
stallation at Brigham Young University. 

The complete printout of all daily, 
monthly, and yearly data is available 
upon request for the cost of reproduction. 
Both computer programs are printed here- 
іп (Appendix) for researchers who might 
find sections or subroutines applicable to 
their specific needs in meteorology or 
biology. 

Regarding specific handling of meteoro- 
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TABLE 1. Sample monthly summary of measurements on precipitation. soil moisture. relative 
humidity. potential evaporation, cloud cover. and wind—May 1973. | 


PRECIPITATION (MMI SOIL MOISTURE RELATIVE 
OA Y HUMIOLTY HRS OF ROT CLOUD 
OF TOTAL RAIN SNOW SNOW SNOW IRRIGATED NON- IRR1G 98-100 EVAP COVER WIND 
DAY YEAR PREC PREC PREC FALL COVER PERCENT DEW IRR® PERCENT DEW MAX MIN REL -HUM (мм (0-10) {KM} 
I 
1 121 1.0 1.0 + + 100 68 18 0.0 5 52 
2 122 0.3 0.3 100 24 6 17504 і 3% 
3 123 + + 100 30 2 8.2 5 50 
4 124 86 38 о 4.8 5 6t 
5 125 * * 100 37 lt 2.8 8 50 | 
6 126 0.5 0.5 + + 100 72 8 8.8 4 66 
7 127 12.6 + + 9.2 + 98 42 4 oo 5 42 | 
8 128 17.5 190 46 9 10.4 9 56 
9 129 * * 98 26 5 8.6 9 29 | 
19 130 + + 99 40 6 7.4 1 34 
11 131 + + 98 32 8 9.9 0 24 
12 132 + + 98 34: 4 10.2 2 32 
13 133 + + 58 30 0 10.0 0 63 | 
14 134 9.9 + + 8.9 * 100 32 4 8.4 1 ál 
15 135 20.7 100 36 6 8.6 2 34 
16 136 + * 100 34 4 13.4 0 31 
17 137 100 36 5 19.0 1 31 | 
18 138 100 36 5 10.0 а 42 
19 135 2.5 2.5 + + 100 43 8 11.6 0 61 | 
20 10 0.5 0.5 + * 100 41 8 6.8 3 55 | 
21 141 8.1 + + 4.4 + 100 38 6 2.0 7 58 
22 142 18.9 + * 199 38 6 7.6 0 31 
23 143 + + 100 32 1 10.2 0 35 
24 144 Cio 5v 100 36 4 Бег 4 82 | 
25 145 24.1 24.1 + + 190 82 22 2.2 10 39 
26 1% 99 4% 12 6.6 8 82 
27 197 + + 99 36 8 9.6 0 60 
28 148 16.8 e + 15.3 + 190 35 9 8.8 0 21 
29 199 24.1 + + 100 28 4 9.2 0 34 І 
30 150 + 100 36 7 8.6 9 18 
3L 151 + 190 38 6 9.2 2 40 
4 
ТОТА1$ 34.0 34.0 0.0 0.0 0.0 128.6 23 % 397129821 240.2 1418 | 
MEANS 1.1 1.1 0.0 0.0 0.0 16.1 9. 97 39 ь ot 2 45 Í 
EXTREMES 
HIGH 24.1 24.1 0.0 0.0 0.0 24.1 15.3 100 82 22 13.4 10 82 
LOw 0.0 0.0 0.0 0.0 0.0 8.1 4.4 58 24 0 9.2 2 18 | 


ж САТЕ CF IRPIGATION (MAY THROUGH OCTOBER) 


Тавіе 2. Sample monthly summary of temperatures measured from a standard weather shelter 
and at 5 cm beneath soil surface under grass cover—May 1973. 


WEATHER SHFLTER TEMPERATURES 5 CM BENEATH SOIL SURFACE 
САҮ THERMDMETER HYGROTHERMOGRAPH IRRIGATED NON- IRRIGATED 
CF 
DAY YEAR MAX. HIN. ME AN MAX, MIN. MEAN MAX. MIN. MEAN MAX. MIN. MEAN 
1 121 13.3 -3.3 5.0 8.9 -1.1 3.9 12.0 6.0 9.0 12.0 6.2 9.0 
220050122 15.6 0.0 7.8 15.0 0.0 7.5 16.9 8.3 12.2 17.2 7.2 12.2 
3 5123 21.7 6.7 14.2 21.1 7.8 14.4 19.0 11.0 15.0 30.0 11.0 20.5 
& 124 21.1 1.8 14.4 20.6 7.8 14.2 16.9 12.2 15.9 20.2 12.9 16.0 
5. 125 22.0 5.0 12.5 19.4 5.6 12.5 18.0 11.0 14.5 18.) 11.0 14.5 
6 126 18.9 5.1 12.8 18.3 1.8 13.1 18.0 12.0 15.0 20.0 12.0 16.0 
7 127 18.9 6.1 12.5 6.1 6.7 6.4 19.0 13.0 16.2 21.9 13.9 17.0 
8 128 19.4 2.2 10.8 18.3 2.2 10.3 17.0 10.0 13.5 19.5 19.5 14.5 
9 129 23.9 5.0 14.4 23.3 5.6 14.4 20.0 12.0 16.0 23.0 12.0 17.5 
10 130 23.3 4.4 13.9 22.2 4.4% 13.3 21.0 12.0 16.5 24.) 13.9 18.5 
il 131 23.9 6.1 15.0 22.8 5.6 14.2 20.0 10.0 15.0 21.0 11.0 16.9 
12 132 26.1 8.3 17.5 25.6 6.7 16.1 23.9 11.0 17.0 23.0 12.0 17.5 
13 133 26.1 8.3 17.2 25.6 8.3 16.9 23.0 12.0 17.5 24.2 13279 18.5 
l^ 13% 25.6 6.1 15.8 265.5 6.7 15.6 23.0 10.0 16.5 24.0 12.0 18.0 
15 135 25.6 5.6 15.6 25.6 6.1 15.8 25.0 11.0 18.0 24.0 11.0 17.5. 
16 136 27.8 6.7 17.2 26.7 7.2 16.9 25.0 12.0 18.5 24.0 13.0 18.5 
17 137 28.3 7.2 17.8 21.8 7.8 17.8 2629 13.0 19.5 26.0 13.0 19.5 
18 138 30.0 10.0 20.0 28.9 11.1 20.0 24.0 15.9 19.5 27.0 16.0 21.5 
19.2139 21.8 10.0 18.9 27.2 10.6 18.9 26.0 14.0 20.0 26.0 14.0 20.0 
20 140 26.1 19.6 18.3 25.0 11.1 18.1 26.0 15.7 20.5 25.0 15.0 20.0 
21 141 23.3 5.0 14.2 21.7 5.6 13.6 25.0 12.9 18.5 26.0 13.9 19.5 
22 142 23.9 5.0 14.4 23.3 5.6 14.4 25.0 12.0 18.5 27.0 14.0 20.5 
23 193 26.7 10.6 16.6 26.1 11.1 18.6 27.0 15.9 21.9 28.2 16.0 22.0 | 
24 144 27.2 9.4 18.3 26.7 10.0 18.3 25.2 15.2 22.1 27.0 16.9 21.5 | 
25 195 12.2 3.9 8.1 10.0 4.4 7.2 15.0 10.0 12.5 16.0 10.0 13.0 
26 146 13.9 0.0 6.9 13.3 1.1 7.2 19.0 9.2 14.0 29029 12.2 15.0 | 
27 147 17.2 1.7 9.4 15.6 2.2 8.9 20.0 10.9 15.9 22.2 11.9 16.5 
28 148 22/92 3.9 13.1 21.1 4.4 12.8 23.0 12.0 17.5 35.0 12.0 23.5 
29 149 23.9 6.1 15.0 23.3 6.7 15.9 24.0 12.9 18.2 26.0 13.2 19.5 
32 157 5.0 6.7 15.8 24.4 6.1 15.6 24.0 14.9 19.7 27.) 15.2 21.0 
34 151 26.1 Ge% 17.8 25.6 10.0 17.8 22.0 15.0 18.5 25.0 16.0 20.5 
MEANS 22.8 5.8 14.3 21. 603 13.9 21.5 11.8 16.7. 23.5 12.4 17:59 
EXTREMES 
HICH 39.9 12.6 28.9 11.1 27.0 15.0 35.0 16.0 
LCW 12.2 -3.3 6.1 ze 12.0 6.9 12.0 6.9 


| 
ALL TEMPERATURES IN OEGREES CELSIUS | 
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TABLE 3. 


OAY 
OF 
OAY YEAR 
1 121 
2 122 
3 123 
“ 12% 
5 125 
6 126 
7 127 
8 128 
Б.” 129 
10 130 
11 ІЗІ 
12 132 
13 133 
18 134 
15 135 
l6 136 
ШІ 137 
18 138 
19 139 
20 140 
21 141 
22 1%2 
23 143 
24 1%% 
25 145 
26 1% 
27 147 
28 148 
29 149 
39 150 
АТ 151 
МЕАМ5 
EXTREMES 
HIGH 
LOW 
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Sample monthly summary of temperatures measured from a standard weather shelter. 
at soil surface under grass cover, and on bare soil surface— May 1973. 


WEATHER SHELTER 


THERMCMETER 


MAX, 


13.3 
15.6 
21.7 
21.1 
20.0 
18.9 
18.9 
19.4 
23.9 
23.3 
23.9 
26.7 
26.1 
25.6 
25.6 
27.8 
28.3 
30.0 
27.8 
26.1 
23.3 
23.9 
26.7 
27.2 
12.2 
13.9 
17.2 
22.2 
23.9 
25.0 
26.1 


22.8 


30.9 
12.2 


MIN. 


кч-счоое-оооооомкчаот”ыисеғомк” SO очо 


— — — 
ассы-зыдоллооочолоооооғлюосооолчо O 


ALL TEMPERATURES IN OEGREES 


Table +. Yearly 


potential evaporation, 


MONTH 


JANUARY 


FEBRUARY 


MARCH 


APRIL 


MAY 


JUNE 


JULY 


AUGUST 


SEPTEMBER 


CCTOBER 


NOVEMBER 


UECEMRER 


YEARLY TCTAL 


GRAND MEAN 


xO = 


ҺСТ DETERMINED 
* CALCULATED 1 MAY THROUGH 31 OCTOBER CNLY 


MEAN 


5.0 
7.8 
14.2 
16.4 
12.5 
12.8 
12.5 
10.8 
14.4 
13.9 
15.0 
17.5 
17.2 
15. 8 
15.6 
17.2 
17.8 
20.0 


CELSIUS 


IRRIGATED 

МАХ. MIN. MEAN 
18.0 4.0 11.0 
20.0 6.0 13.0 
23.0 9.0 16.0 
26.0 10.0 18.0 
21.0 9.0 15.0 
22.0 11.0 16.5 
24.0 11.0 GE 
20.0 8.0 14.0 
25.9 10.0 17.5 
25.0 10.0 17.5 
32.0 15.0 21.0 
38.9 10.9 24.0 
37.0 11.0 24.0 
42.0 10.0 26.0 
40.0 19.0 25.0 
43.0 11.0 27.0 
43.0 12.0 21.5 
42.0 15.0 28.5 
49.0 14.0 31.5 
46.0 14.0 30.9 
36.0 12.0 24.0 
44.0 9.0 26.5 
45.0 13.0 29.0 
47.0 14.0 30.5 
18.0 4.0 11.0 
34.0 8.0 21.0 
36.0 8.0 22.0 
32.0 11.0 21.5 
40.0 11.0 25.5 
39.0 12.0 25.5 
39.0 14.9 26.5 
33.7 10.4 22-0 
49.9 15.0 

18.0 4-0 


5014 SURFACE UNDER GRA55 COVER 


NON-IT RRIGATEO 


MAX. 


18.0 
24.0 
32.0 
17.0 
24.0 
24.0 
26.0 
22.0 
28.0 
30.0 
30.0 
35.0 
35.0 
36.0 
35.0 
36.0 
39.0 
41 „0 
43.0 
37.0 
38.0 
43.0 
40.0 
45.0 
17.0 
27.0 
31.0 
36.0 
39.0 
39.0 
38.0 


MIN. 


3.9 
5.0 
9.0 
10.0 
9.0 
11.0 
12.0 


МЕАМ 


10.5 
14.5 
20.5 
13.5 
16.5 
17.5 
19.0 
15.0 
19.0 
20.0 
19.0 
22.0 
22.0 
22.0 
21.5 
22.5 
2%.5 
28.5 
21.5 
25.0 
23.5 
25.0 
26.5 
29.5 
12.0 
17.0 
19.5 
23.0 
24.5 
25.5 
26.0 


21.41 


МАХ. 


29.0 
36.0 
$3.0 
45.0 
41.0 
42.0 
47.0 
38.0 
50.0 
52.0 
39.0 
50.0 
52.0 
54.0 
55.0 
56.0 
59.0 
50.0 
61.0 
52.0 
32.0 
45.0 
59.9 
52.0 
17.0 
31.9 
37.0 
34.0 
38.0 
43.0 
46.0 


45.7 


61.0 
17.0 


æ ——- 
+ — — Q. O. — O + Ó OUN V O Q — O .O GQ @ 2 r> мо O. 
e в a € $ ç е Q * 9 ө e * * < 0 е Q ө ç Q ө ө ө ө ө 
OOOOoOoOoO0O0oo0ooooooooooooooooo 


— æ 


BARE SOIL SURFACE 


IRRIGATED 


MEAN 


14.0 
18.9 
24.0 
25.5 
23.9 
24.0 
26.5 
20.0 
24.5 
27.5 
23.5 
29.0 
30.5 
31.0 
31.0 
32.5 
34.5 
37.5 
36.5 
32.5 
20.5 
27.0 
32.0 
30.5 
12.0 
18.5 
21.5 
21.5 
23.5 
2720 
30.0 


26.1 


NON-IRAIGATEO 


МАХ. 


32.9 
37.0 
44.0 
47.9 
42.9 
45.0 
52.9 
42.0 
55.0 
55.0 
39.0 
51.0 
52.0 
55.0 
57.0 
58.0 
58.0 
59.0 
61.0 
53.0 
53.0 
57-0 
60.0 
59.0 
15.0 
28.0 
38.0 
47.0 
51.7 
52.0 
53.0 


48.6 


61.0 
15.0 


мїн. MEAN 
16.0 
19.0 
25.5 
27.5 
24.0 
26.0 
30.0 
23.9 
30.5 
27.5 
21.5 
27.5 
26.9 
29.5 
29.5 
31.2 
31.5 
34.5 
34.5 
30.5 
28.5 
30.5 
35.0 
35.9 
9.0 
15.0 
21.5 
27.0 
29.5 
31.9 
32.5 


- 
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27.1 


summary of measurements on precipitation. soil moisture, relative humidity, 


PRECIPITATION (MM) 


RAIN 
PREC 


0.0 
0.0 


SNOW 
FALL 


291.2 
9.6 


1795.8 


4.9 


1531.6 
51.1 


970.3 
31.3 
6568.% 


17.9 


cloud cover. and wind—1973. 


SOIL MCISTURE 


І PERCENT) 
ТАКС NON-IRRG 
мо мо 
ло No 
No NO 
No No 
TEC 
23.6 849 
йз Соо 
ОД її 
26.1 12.4 
25.1 10.1 
ND ND 
NU ко 
22.7% 9.4% 


RELATIVE 
HUMIDITY 
MAX MIN 
98 т 
98 66 
98 51 
98 50 
91 19 
97 35 
99 39 
98 34 
99 46 
99 42 
99 5в 
99 69 
98 50 


HRS ОҒ 
98-100 
REL HU 


17 


14 


РОТ 
E VAP 
M (MM) 


ND 
NO 


CLOUO 
COVER WIND 
(0-10) (KM) 
-- 1183 
6 38 
-- 1144 
5 40 
-- 2012 
6 6% 
-- 1901 
4 63 
-- 1418 
2 45 
== 1215 
2 4) 
== 889 
1 28 
— 1061 
1 3^ 
-- 766 
2 25 
-- 1198 
2 38 
-- 1219 
5 42 
== 1329 
5 “2 
-- 15326 
3 41 
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TABLE 5. Yearly summary of temperatures measured in a standard weather shelter, at 5 cm 


beneath soil surface under grass cover. at soll surface under grass cover. and on bare soil surface— 
1973. 


WEATHER SHELTER TEMPERATURES 5 CM BENEATH SOIL SURFACE 
THERMOMETER HYGR CTHE RMOGR AP H IRRIGATED NCN-IRRIGATED 
MONTH MAX, MIN. MEAN МАХ. MIN, MEAN MAX, MIN. MEAN MAX. MIN. MEAN 
JANUARY 0.6 -12.6 -6.0 -1.1 -11.% -ь.2 -3.4 952 2328 -2.4 -3.% -22a 
FEBRUARY 6.6 -6.3 0.2 5.1 -5.9 -0.% -›.8 Oe) Fee 058 -2.% 71.6 
MARCH 9.0 2392 2.9 7.7 =2%2 2.6 4-0 12 1.4 6.1 0.2 3.1 
APRIL 12.5 -0.7 5.1 11.5 9.1 5.8 8.4 1.9 5.1 10.5 3.2 6.9 
MAY 22.8 5.8 15.3 21.4 6.3 13.9 2125 11.8 16.7 23.5 12.4 17.9 
JUNE 27.4 8.9 18.2 26.7 9.5 18.1 25.7 15.2 19.9 29.7 16.6 23.1 
JULY 31.0 12.% 21.7 39.8 13.3 22.0 28.1 13.1 23.6 34.5 20.2 27. 
AUGUST 31.5 11.8 21.6 31.0 12.8 21.9 26.5 18.4 22.5 31.9 18.8 25.5 
SEPTEMBER 23.3 5.5 15.4 22.9 6.1 14.8 19.1 12.6 15.8 22.6 12.1 17.4 
OCTOBER 19.4 2.1 10.7 19.0 3.2 11.1 13.7 7.9 15.5 15.2 25 11.9 
NCVEMRER 9.9 2.2 3.9 9.3 ez 4.0 24.7 2.5 3.6 5.% 2.2 3.8 
OECEMRER 5.2 -5.6 -0.2 4.9 -4 e7 2.1 Ded -0.7 29.92 2.4 -1.1 -0.% 
I 
GR АМО MEAN 16.6 1.3 9.0 15.8 2.2 9.0 12.1 6.6 9.% 14.8 7.2 11.0 
SOIL SURFACE UNOER GRASS COVER BARF SOIL SURFACE 
IRRIGATED NON-IRRIGATED IRRIGATED NON-IRRIGATED 
MONTH MAX. WIN. MEAN MAX. MIN. MEAN MAX. MIN. MEAN МАХ, MIN. ME AN 
JANUARY =e -2.5 2242 AU -..2 -3.% 23571 -4.5 -3.8 -2.8 -249 Eo 
FEBRUARY 1.0 -2.% -C.7 2.0 224419 ке) 6.5 -5.6 94^ 5.8 -4.3 9.8 
“ARCH 7.9 -0.3 3.8 10.0 -1.0 4.5 17.5 -%.% 6.5 18.6 -3.1 7.8 
APRIL 12.4 2.6 7.5 15.7 2.1 8.9 25.1 -2.^ 11.3 29.3 -1.0 14.1 
MAY 33.1 10.4 22.0 32.^ 9.7 21.1 44.7 7.5 26.1 48.6 5.5 27.1 
JUNF 41.2 13.4 27.3 43.1 13.3 28.2 46.2 12.7 29.“ Bilis: 10.3 33.9 
JULY 35.7 19.8 27.8 52.9 16.% 33.6 44.5 16.3 30.6 62.8 14.5 38.7 
A'JGUST 32.6 19.5 26.0 45.3 15.9 30.1 44.9 15.8 29.9 55.5 14.2 34.9 
SEPTEMBER 24.8 13.4 19.1 31.3 9.7 20.5 33.3 10.1 21.7 40.6 8.27 25.3 
CCTORER 18.0 9.) 13.5 22.8 5.1 14.0 25.1 b.k 15.7 32.8 2.4 17.6 
МОУЕМЕЕН 8.0 4.3 6.2 7.8 1.2 4.5 12.6 1.8 7.2 12.6 2.9 6.3 
CEGEMBER 3.5 1.3 2.^ 1.8 -1.2 0.3 6.3 -0.% 3.0 Sel -2.1 1.9 
GRANT) MEAN 18.1 7.4% rant 21.6 5.3 13.5 25.3 4.4% 14.8 30.5 3.4 16.9 


ALL TEMFERATURES IN CEGREES CELSIUS 


Table 6. 1973 data for time and costs for weather data tabulation and Calcomp plotting pro- 
grams using the IBM 360/65 installation at Drigham Young University. 


Turn around Compiler Run Plotter 
Program time costs costs costs, Total 
Weather data 
tabulation Об $6.75 S 7.50 x $14.25 
Calcomp graphics 2.0 hr $7.00 $13.00 $5.00 $25.00 
$39.25 
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logic information from the pasture plots 
as well as certain calculations апа con- 
versions by the computer, the following 
clarifications may be warranted. АП 
measurements of precipitation as гаі аге 
measured and entered іп fractions. of 
inches and then converted before tabu- 
lation into millimeter units. New snow 
and total snow cover are similarly han- 
dled. Precipitation as snow is calculated 
as one-tenth that of total snowfall for any 
one day. Soil moisture samples were de- 
termined as described previously by An- 
dersen et al. (1974), with the exception 
that two samples were taken each week 
from the irrigated plot—one just prior 
to sprinkling of the plot and the second 
24 hr later. Only one weekly sample 
was taken from the nonirrigated plot. The 
weight in grams of each sample was en- 
tered as an original wet weight and then 
as a dry weight determined after 24 hr 
storage at 105 fe 


Programmed formulae calculated the 
percent soil moisture by dividing the dif- 
ference in the wet and dry weight for each 
sample by the dry weight value. ‘This per- 
cent was then printed on the first print- 
out page for each of the six months that 
irrigation was used. The presence or ab- 
sence of dew on each plot was noted for 
each morning during those six months 
and recorded as a “+” when present. 
Irrigation by sprinkling was performed 
each Monday during the six-month period 
and also indicated with a “+” on the ap- 
propriate dates. 


Relative humidity (RH) maxima and 
minima, as well as the total number of 
hours each dav at which 98-100 percent 
RH occurred, were entered and printed 


out directly. The evaporating pan on the 
instrument that measured. potential evap- 
oration was filled each morning, and the 
daily water loss noted for the following 
24 hr was entered in mm and also printed 
out directly. Since evaporation could not 
be read in freezing weather, the measure- 
meut was taken only during May through 
October. those same months during which 
the oue plot was irrigated. A difficulty 
ensued whenever rain occurred because 
the evaporating pan held only 20 nun of 
water and refilled partially or completely 
on any dav during which гаш fell. Thus, 
any potential evaporation which may have 
occurred on such days was invariably ne- 
gated to some degree by the rain that col- 
lected in the ev aporating pan. Neverthe- 
less, the recordmg evaporimeter used in 
the study gave a much more accurate re- 
flection of the potential evaporation with 
its shallow pan (20 mm) than do the 
large evaporation tanks used by the U.S. 
Weather Bureau. In those tanks the 
water level is frequently 4-6 in (10-15 
cm) below the upper rim of the pan and 
hence protected markedly from the evapo- 
rating effect of wind currents. 

Any evaluation of daily cloud cover was 
determined visually each morning and 
recorded in tenths. The evaluation indi- 
cated the approximate portion of the sky 
that was covered sufficiently with clouds 
to cast a shadow at the time the instru- 
ments were read. It was thus the most 
subjective of all measurements taken but, 
nevertheless, provided some estimation of 
cloud cover in this region. Wind totals 
were entered in mile units read from 2 
anemometer dial each day, calculated г 
the difference from the value of the e 


214 


ceding day, and converted and printed 
out as kilometers. The final daily wind 
total for any preceding year is listed as a 
starting value and included on the control 
card for the main program. 

Maximum and mmimum temperatures 
monitored from a standard weather shel- 
ter, from 5 cm beneath soil surface under 
grass cover, from soil surface under grass 
cover, or from bare ground were recorded, 
converted to Celsius if not already in those 
units, and printed onto the second and 
third sheets for each month’s data. Means 
and extremes for all values were stored 
for eventual calculation of totals and grand 
means for the annual summary pages. 

Daily maximum and minimum tem- 
peratures were measured in the weather 
shelter by mercury- and alcohol-filled 
thermometers as well as by a standard 
hygrothermograph. Differences noted in 
the recorded temperatures relate mainly 
to the longer time lag required by the bi- 
metallic sensor within the thermograph 
unit. 


Discussion 


The main objective of this paper was 
to present the computer programs devel- 
oped for our research on the effect of 
irrigation on pasture microenvironments. 
These programs have proved extremely 
satisfactory to us, and hopefully some 
sections or subroutines will be of value 
to others engaged in related research pro- 
jects. Mitchell and Andersen (1969) re- 
ported on a computer program, developed 
at the University of Illinois at Urbana, 
for handling meteorologic data collected 
from grass plots. Certain similarities exist 
between that program and the one re- 
ported here. since the choice of meteoro- 
logic instruments and the overall research 
projects ай the two institutions were 
closely correlated. The program at Illi- 
nols, however. was designed to handle 
some additional measurements not taken 
in the current study, such as solar radi- 
ation. Тһе Illinois study also gave em- 
phasis to conversion data for a series of 
soil-moisture and soil-temperature miea- 
surements obtained through nioisture-cell 
leads (wafers) and builtin thermistor 
units. The programs developed at BYU 
use data on soil moisture only from simp- 
lied. gravimetric measurements but in- 


clude the techniques designed for Cal- 
comp graphing as well. The advantage 
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of this plotting program 1s not only in the 
funds saved through not having to man- 
ually plot, trace, and label all such graphs 
but more particularly in the marked re- 
duction of errors that invariably accom- 
pany the tedious and laborious tasks en- 
countered in manually plotting daily 
weather data. 

The impact of irrigation on the moisture 
and temperature profiles in central Utah 
during 1973 was essentially the same as 
that reported for 1970-72 by Andersen 
et al. (1974). Grand mean temperatures 
for 5 cm beneath soil surface under grass 
cover, at soil surface under grass cover, 
or on bare soil surface were consistently 
lower on the irrigated plot than on the 
nonirrigated area. These temperature dif- 
ferences were most apparent durmg the 
warm summer months when irrigation 15 
commonly employed throughout the re- 
gion. In July. for example, the month 
during which most yearly maxima were 
recorded, the average monthly maximum 
temperatures measured 5 cm beneath 
soil surface under grass cover on irrigated 
and nonirrigated plots differed by 6.4 C, 
by 15.2 C for those measured at soil sur- 
face under grass cover, and by 17.9 C on 
bare ground. Duriug the six months when 
no irrigation. occurred, the differences 
were not so apparent; hence the grand 
means for the vear do not give an ac- 
curate reflection of these temperature 
ranges for the irrigation season. 

The contrast between soil moisture 
measurements in the two plots was read- 
ilv apparent for the six months during 
which soil samples were gravimetrically 
analvzed for moisture content. Тһе grand 
mean for the percent soil moisture for that 
period was 22.7 percent for the samples 
removed from the irrigated section and 9.4 
perceut for those from the nonirrigated 
area. 

Other meteorologic measurements which 
were taken. such as the precipitation pat- 
tern for rain or snow, relative humidity, 
potential evaporation. and wind, were 
monitored for both sections combined, 
since the instruments used could not de- 
tect differences from microenvironments. 
The general pattern of these values was 
similar to that recorded for previous years. 
The collective data for 1973 emphasize 
the marked beneficial 1mpact of irrigation 
ін creating favorable microenvironments 
for living organisms. 
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WEATHER DATA ANALYSIS, PART I 


* * 
* * 
* ж 
ж DEVELOPED BY FERRON ANDERSON, BYU * 
* PROGRAMMED BY PAUL ROSS ROPER, ERI * 
* * 
* * 


IIPZIILIPIIZIIRRIRSERSRIERIESEREERIEZELERRISIPZIEPIZPISIIIZEIIEDIIZRII: 


СОО ооо 


0001 INTEGER NOAYS, DAY» DYR, DEWI» IRRG, DEW2, HHUM, (НОМ, THRS, 
CLCV, WIND, 0108, 52(26,5), MON(12), HOLD, МОЧТН(13,3)/ 
+ JANU* , *FEBR*, *MARC*, *APRI*, MAY ', *'JUNE*, *'JULY', 
AUGU’, 'SEPT*, 'OCTO', *NOVE*, *DECE*, * СААМ? , *ARY э, 
*UARY*, ЭН .. PL во УИ 5 УСТ *,.  *EMBES* ИЖ НЕВРИТ 
UMBER *MBER*, ГОМЕ ОО s NR 7: 3*9 э, “AND AD 
0002 REAL ТРАЕ, RAIN, PRSN, SNOW, SNCV, MOST, MOSN, PEVP, IRWW, 
ІРОН, NIWWs NIDW, Т(34.16), 51(26,8), $3(13,24), 
PAGE2(34 12), РАСЕЗ( 34, 15) 

2003 C CMMON NDAYS, ОАҮ (31), DYR(31), TPRE(35), RAIN(35), РВ5М( 35), 


modom 


> > 


A SNOW(35), SNCV(35), MOSI(35), OEWL(32), IRRG(32), 
8 М05М( 35), DEW2(32), ННОМ(35)» LHUM(35), ТНЕ5 (35), 
C РЕУР(35), CLCV(35). WIND( 35) 
000% DATA 51,52,53 /208*0.0, 130%0, 312%0.0/ 
С ТАРЕ 10 
0005 DATA ITAPE /5/ 
0006 CENT(X) = (Х-32.0)%5.0/9.0 
С 
C REWIND ITAPE 
C 
C LOOK FOR CORRECT YEAR 
С 
2907 1 АЕАО(5, 200, ЕМ0=999) NYEAR 
0008 2 READCITAPE,200,END=999) [IYEAR, IDAYS, MON, OLOMW 
3009 IFUÜIYEAR. EQ.NYEAR) GO TO 4 
0010 DO 3 1=1,10AYS 
0011 ВЕАО(ТТАРЕ,200.ЕМ0-999) 
0012 3 CONTINUE 
0013 GO TO 2 
C 
C 
C PROCESS DATA PAGE BY PAGE 
C 
0014 4 DO 900 II21,12 
0015 CALL HEAD (IYEAR,TI,1,; MONTH) 
0016 NDAYS = МОМ(11) 
С 
C WRITE PAGE 1 HEADING 
E 
0017 WRITE (69120) 
0018 DQ 10 1=1, МОАҮ5 
0019 ВЕАО(ІТАРЕ, 201) ОАҮ(1), ОҮВ(1), RAINCI), SNOWCIÍ), 5МСу(1), IRWW, 
A IRDW, DEW1(1)s IRRG(I), NIÍWW, NIOW, OEW2(T), 
B HHUM(I), LHUMIT), THRSCI), РЕУР(І), СІСУІІ), 
C WIND(I1), (CTI eS}, J715,16) 
0020 PRSN(I) = 5МОЯ(Т) ж 2.1 
0921 TPRECI) = RAINCI) + PRSN(CI) 
0022 IFCOLOW.GT.WINDO(CI)) OLDW = OLOW - 1000 
0023 HOLO = WINO(I) 
0024 МІМО(І) = (WIND(I) - OLOW) ж 1.6093 + 0.5 
2025 OLOW = HOLD 
0026 MOSI(I) = 0.0 
0027 MOSNIT) = 0.9 
0028 TFC IRWW.NE.0.0) MOSI(I) = CIRWW - IRDW) % 190 / [ROW 
0029 IFINIWW.NE.0.0) М05М(1) = (NIWW - NIDW) * 100 / NIOW 
0030 CALL PRINTL (1,11) 
0031 РАСЕ2(1,1) = СЕМТЕТ(1, 12) 
0032 РАСЕ2(1,2) = СЕМТЕТ(1, 2) ) 
0033 РАСЕ2(1,4) = СЕМТ(Т(1,3)) 
0034 PAGE2(1,5) = СЕКМТ(Т(1,4)) 
0035 РАСЕ2(1,7) = Т(1,5) 
0036 РАСЕ2(1,8) = Т(1.6) 
0037 РАСЕ2(1»10) = ТІ1,11) 


)072 
0С73 
эст 
0015 
0С76 
2977 


0С78 
2079 
0080 
0C81 
0082 
0C83 


2084 
0085 
0086 
0087 
0088 
0089 
0090 
0091 


AA 


ey cy cy ca 


Сэ c) o 


ов 


10 


WRITE(6,121) ТРКЕ(32), ВАІМ( 32), PRSN(32), SNOW(32), 
А М051(32), DEW1(32), IRRG(32), MOSN(32), 
8 РЕМР (32), WIND(32) 

МЕТЕ (6.122) (TPRECI), RAINCI), PRSNCI), 5МОМ(1), 

MOSI4I)s М05М(1), HHUM(I), 
В РЕУР(Т), СІСУ(І), WINOCI), 1233, 35) 

GOTO 32 

20 WRITF(6,123) ТРЕЕ( 32), RAIN(32), PRSN(3210, 5М0М4(32), 
А WIND (32) 
WRITE(6,124) (TPRE(I), ЕАІМ(І), PRSN(1), SNOW(IJ , 
A HHUM( T), LHUM(1) + THRS(I), СІСУІ1), 


ag 


31 


4) 


РАСЕ2 (1,11) 
РАСЕЗ (1,1) 
РАСЕЗ (1,2) 
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T(I 412) 
РАСЕ2(1,1) 
PAGE2(1,2) 


PAGE3(I,4) = Т(1,7) 
РАСЕЗ (1,5) = Т(1,8) 
PAGE3(1,7) = Т(1,13) 
РАСЕЗ(1,8) = Т(1,14) 
PAGE3( 110) = Т(1,9) 
РАСЕЗ(1,11) = Т(1,10) 
PAGE3(I4,13) = Т(1,15) 
PAGE3(I»14) = Т(1,16) 
CONTINUE 

CALL SUMA (TPRE) 


CALL SUMR (RAIN) 
CALL SUMR (PRSN) 
CALL SUMR (SNOW) 
CALL SUMR (SNCV) 
CALL SUMR (PEVP) 
CALL SUMZ (М051) 
CALL SUMZ (MOSN) 
CALL SUMI (HHUM) 
CALL SUMI (LHUM) 
CALL SUMI (THRS) 
CALL SUMI (CLCV) 
CALL SUMI (WIND) 
CALL SUMC (IRRG) 
CALL SUMC (OEw1) 
CALL SUMC (OEW2) 


PAGE 1 OF WEATHER DATA 


IF(II.LT.5.0R.II.GT.10) СОТО 20 


PAGE 2 OF WEATHER DATA 


CALL HEAD (IYEAPR 4,1 1,24 MCNTH) 
CALL CALC (PAGE2,12) 
WRITE(6,130) 

00 31 I-z1,;NDAYS 

WRITE(6,131) ПАҮ( 1), OYR(Y); 
WRITE(6,132) 


PAGE 3 OF WEATHER DATA 


CALL HEAD (IYEAR,II43,MONTH] 
CALL CALC (РАСЕЗ, 15) 

WRITE (6,140) 

DO 40 1=1,МОАҮ$ 

WRITE(6,141) DAYCI), OYRII)s 
МЕТТЕ (6,142) 


STORE ОАТА FOR YEARLY SUMMARY PAGES 


00 50 Ј=1, 2 
К = [I * 2 + J - 2 


Vol. 35, Мо/2 


SNCV(32)5 
0ЕМ2(32)» 


SNCV(UI I + 


LHUM(T), THRS(ID, 


(PAGE2(I1 IJ) |J= 1, 12) 
((РАСЕ2{1,)),)=1,12),[=32,3) 


(РАСЕЗ3З(1,)),)=1,15) 
(CPAGE34IJI ,J71,1510, 1232,34) 


SNCV (32), 


5МСУ(1), 
И1МО({1),1=33, 35) 


SI(K,1) = TPRE IL *J) 
S1(K,2) = RAIN(GGLI*J)I 
S1(K,3) = PRSN(Z1¢J5) 
51(К,4) = SNOW(31*J) 
51(К,5) = SNCV(31*J) 
51(К,6) = MOSI(31*J) 
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0092 
0093 
009% 
0095 
0096 
2097 
0098 
2099 
3105 
0101 
0102 


0103 
0104 
0105 
0106 
0107 
2108 
0109 
1112 
0111 
omi? 
)113 
0114 
0115 
С116 
0117 
ILLE 
0119 
91202 
)l21 
0122 
pl23 
212 
0125 
2126 
0127 
0128 


0129 
013) 
ВІЗІ 
0132 
2133 


2134 
0135 


0136 
0137 


2138 
0139 
0149 
2161 
0142 
0143 
0144 


0145 
3146 


anan 


а Ге 


E 
C 
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51(К,7) = MOSN(31*JI 
51(К,8) = PEVP(31*J) 
50 S2(K,5) = WIND(31*J) 
52(к,1) = HHUM(33) 
S2(Ke2) = LHUM(32) 
S2(K,3) = THRS(33) 
52(К,4) = CLCV(323) 


00 51 J=1,12 


S3(11,J) = PAGE2(32,J) 


51 S3(tII4J*12) 
900 CONTINUE 


PAGE3(32,J*3) 


YEARLY SUMMARY PAGE 


DO 54 Ј=1,8 


$1(25,J9) = 0.0 
$1(26,J) = 0.0 


00 53 1=1,12 


IF(J.LT.6) GO TO 52 
IF(I.LT.5.0R.1.GT.192) GO TO 53 


52 $1(25,J) 
51(26,,) 
53 CONTINUE 


S1(265,5J) = 51(26,.)) 
IF(J.GT.5) S1(264.J) 


54 CONTINUE 
92 56 Ј=1,5 
$2(25,J1 
52(20,Ј) 
00 55° Is] 
52(25,Ј) 

55 52(26,0) 

56 52(26,Ј} 
ПО 58 Ј=1, 24 
S3(13 J) = O 
00 57 Із1,12 


n 
0 
12 


пон dn 


52(25,Ј) 
52{26,Ј) 
$2(26,)) / 12.0 


»lte9yJ) «€ SLIUL*2?2-1,J] 
51(26,/) + SICI*2,J) 


12.0 
SIR 265 JS) »* 2.2 


M 


” 


S2( ee a) 
S2(1*2,J) 


25 


57 S3(13,J) = 53(13,)) 9301.071 
58 53113,7) = S3(13,J) / 12.0 


WRITE(6,162) 
4РІТЕ(6,161) 


IYEAP, IYEAR 


WRITE SUMMARY PAGE 


ех о 
| H 


IF(I.LT.5.0R.1.GT.10) GO TO 60 
(MONTH(I J] J=1,3), (S1(K,J),5Jz1, 5), SICK, 8), S2(K,5), 


ЕЗІТЕ(6,162) 
А 
В 
GOTO 61 
60 WRITE(6,163) 
А 
61 CONTINUE 
WRITE (69164) 
A 
B 


WRITE (6,165) 
WRITE(6,166) 
WRITE (65167) 
WRITE(6,168) 
WRITE (6,167) 
WRITE (6,169) 
GOTO 1 


999 STNP 


(51(1,)›),)=1,7), (52(1,)),Ш)=1,3), 51010,81, 52(1,4), 
52(1,5) 


(МОМТН(1,)),)=1,3), (S1(K,J)sJ=1> 5) 5S2(K,5), 
(SI(L,J),J=1+5), (S2(L,vJ),J=1,5) 


(51(25.,/).,/-1.5), 51(25,8), 52(25,5), 
(516026,7) ,Ј=1,.71, (52426,7), Ј=1,3), 51(26,8), 
(52(26,)) , Ј=4,5) 

IYEAR, IYEAR 

({(МОМТН(1,)),)=1,3), (53(],К),К=1,12), I=1,13) 


((МОМТН{1,)),)=1,3), (53(1,К),К=13,24&), 1=1,13) 


129 FORMAT(*23',T23,'PRECIPITATION (MM)*,T65,*'SGIL MOISTURE*,T90, 


тто о о> 


"RELATIVES ,/, T7, 'DAY* ,T90, "HUMIDITY HRS OF РОТ',5Х, 
*CLOUD' T/S T7. “ОҒ TOTAL RAIN*,3(4X,' SNOW' 1 ,T60, 
‘IRRIGATED’, T T6, *NON-IRR!G*,T102,* 98-100 EVAP * , 4X, 
*COVER 
COVER” ¿5X PERCENT DEW IRR* PERCENT DEW MAX  MIN',4X, 
'REL-HUM ( MM) (0-10) (KM)*,//) 


VINO*,/.* DAY  YEAR*',3(4X,' PREC* ) ,' FALL*,4^X, 


218 


0147 
2148 


2 149 
015) 


0151 


э152 
0153 


0154 


2155 
0156 


0157 


0158 


0159 
0160 


7161 


0162 


0163 


316% 
0165 


0166 


2167 
0168 


0169 


2901 


0002 


C003 
2024 


Gy сус» 
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121 FORMAT(*-TOTALS * ,5F8.1,FI11.1,214,F10.1, I4, Т1)9, Ға. 1, 7X, 18) 

122 FCRMAT(*OMEANS *,5F8.1,F11.15»T73,F8.14,7T88»2155» I8,Fl11.1517,18,/, 

* OEXTREMES %,/, 

1 HIGH*,5F8.15»F11e«e1»773,F8.1,T88,215,18,F11.1,17,18,/, 

U LOW %,5Ғ8.1,ҒІ1.1,Т773,Ғ8.1.788,215.18,Ғ11.1.17,18,/, 

'-* DATE CF IRRIGATION (MAY THROUGH OCTOBER)*') 

123 FORMAT(*-TOTALS * ,5F8.15,T124,18) 

124 FORMAT(*^MEANS * ,5F8.,1,T88,215,18,11X,17518,/ | * OEXTREMES *,/ , 

А ' Н1ОН*,СбЕВ„1,Т188,2[5,18,11Х,1[7,18›,/, 
R Y LOW *,5F8.1,T88,215,18,11X4,17,18,7,*'-* DATE ОҒ”, 
C 'IFRIGATION (MAY THROUGH OCTOBFR)®) 

130 FDhRMAT(U31IX, WEATHER SHELTER ТЕМРСРАТУРЕ5”, 32X,*5 CM BENE 
AATH SOIL SURFACE?” ,//,9X,* DAY! , L ЗХ, ' THERMOMETER®, 16X,* HYGROT HERMOGR 
ВАРН”,16Х, IRRIGATED?” ,18X, *NON-IRRIGATEO*,/,9X,*' 0F*,/,5X, 

C *DAY YFAF*,4(8X,' МАХ. MIN. MEAN "),/) 

131 FORMAT (5X,^42,2X4,A34,40(5X,3F8.1)) 

132 FORMAT('- MEANS *,4(5X,3FR. 1) 7 +° Ü ЕХТРЕМЕ5%,/, 

А ВХ, HIGH? ,4( 5X,2F83. 1,4X4, A41, /, BX, *LOW *,&{5Х,2ЕВ8В„Ь1,&Х›,А4), 

4% ALL TEMPERATURES IN DEGREES CELSIUS’) 

140 FOFMAT(16X, * WEATHER SHELTER*,15X,* SOIL SURFACE UNCER GRASS COVER®, 
А 27Х,%8АКЕ SOIL SURFACE’ ,//5,5X, '*DAY* , 10X, THERMOMETER? ,4X, 

В 2ULIX,' IRRIGATED* ,14X, 'NON-IRRIGATED*!,2X),/4, 5X, ОҒ? ,/, 
C * DAY YEAR*',6X, * MAX. MIN. MEAN*,4(7X,* MAX, MIN. МЕАМ”),/) 


о О 0 р 


> 


141 FORMAT (1Х,А2,2Х,А3,5(4Х,3Е7.11) 

142 ЕОЕМАТ( %-МЕАМ5 ",5(4Х,3Ғ7.1),/, *DEXTREMES*,/,* HIGH*, 
A б{&Х,2Е7Т.1,3Х,А4),/,* LOW %,5(4Х,2Ғ7.1,3Х.А4),/, 
8 *—ALL TEMPERATURES IN DEGREES CELSIUS*] 


160 ҒОРМАТ(%1 *',14,* SUMMARY - PRECIPITATION”! 95X 'PART 1*,///,51X, 
A I4,” SUMMARY OF METEGROLOGIC DATA*,/,55X,*'8YU PARASITOLOGY STATI 
8BON*,/,61X, * PROVO, UTAH*,//) 

161 FORMAT(32X, *PRECIPITATICN (MM)',T66,' SOIL MOISTURE*',T84^, 


А *RELATIVE',/,T68,* (PERCENT) * , T84,* HUMIOITY*,T9T, 
ñ *HRS OF POT CLOUD” ,/,24X, ' TOTAL RAIN”, 
С ae SNOW*) ,T197,* 98-100 EVAP COVER WIND*,/,23X, 
0 MONTH? 416X, 3(* PREC буз ЛЕЛЕ COVER IRRG *, 
E *NON-IRRG MAX MIN REL HUM (MM) (0-101  4KMI*) 
152 FORMAT(*O  *,3A4,*' TOTAL ',5F8.1,50(6X,'--*) ,F8.1,0X, *--* , 18,7 , 
А 15Х,"МЕАМ %,7Ғ8.1,318,Ғ8.1,218) 
163 FORMAT(*O %,3А4,"ТОТА(”,5Е8.1,5(6Х,%--”),06Х,4М0%,6Х,%--4,18,/, 
А 15Х,*МЕАМ *,5F8.1,2(6X,*ND' 2,318, 6X, *NO* 218) 
164 FORMATU*- YEARLY TOTAL *,45FB.1,5(6X, '--' 1, FRc lr ж” ОБ 
А 18,/«*) GRAND MEAN ',5Е81,1Х,2({Е7.1,**'*'),17,218, 
3 ЕВ.1,**%*,][7,18,/,*- ND = NOT OETERMINED* 57, * * CALCULATE 


СО 1 MAY THROUGH 31 OCTOBER ONLY*) 

165 ЕОВМАТ( 1 .,14,! SUMMARY - TEMPERATURES*,95X, *РАВТ 2*,///,51X, 
A 14," SUMMARY OF METEOROLOGIC OATA*,/,55X,* BYU PARASITOLOGY STATIO 
BN*,/,61X,* PROVO, UTAH*,//) 

166 FORMAT(34X,*WEATHER SHELTER TEMPERATURES', 32X,*5 CM BENE 
AATH SOIL SURFACE*,//,28X, * THERMOMETER* , 16X, *HYGRCTHERMOGRAPH* , 16X, 
BI IRRIGATEO*,18X,'NON-IRRIGATED*,/,*'5) |) MONTH',8X,4(8X, ' MAX, MIN. 
G MEAN *),/) 

167 FORMAT {12{* “,344,4(5Х,3Ғ8.41)/),"0 ”,3А4,4(5Х,3Е81),//) 

168 FORMAT('-*,32X,* SOIL SURFACE UNDFR GRASS COVER*,34X,*BARE SOIL SUR 
AFACE* ,//, 11X y 20( 18X, ' IRRIGATED* , 18X,*NON- IRRIGATEDO*),/, *0 МОМТН”, 
B 7X ,4(9X, ' MAX, MIN. MFAN* ) , /) 

169 FORMAT(*- ALL TEMPERATURES IN DEGREES CELSIUS*,/,*1*) 


200 FORMAT{ 2014) 


221 FORMAT(A2,A3,F3.2,4F3. 1,2^41,2F3.1,A1, 213, 12,F3. 1, I2, 13, 
A 7%5Х.16Ғ3.0) 
ENO 


SUBROUTINE HEAD (IYEAR,M, IPG,MONTH) 


WRITE A HEADING ANC PAGE NUMBER FOR EACH MONTH 

INTEGER | NDAYS, CAY, DYR, DEWL, IRRG, DEW2, HHUM, (Н/М, THRS, 
A CLCV, WIND, LINECLIO), LINL(2), LIN2(2) + МОМТН(13»3) 
REAL TPRE, RAIN, PRSN, SNOW, SNCV, MOSI, MOSN, PEVP 

с OMMON NOAYS, ОАҮ(31), DYR(31), ТРВЕ( 35), RAIN(35), РЯ5М( 35), 
А SNOW(35) , 5КСУ(35), MOSI(35), DEWL(32)5 1АВС(32), 


8 М05№( 35), ПОЕН2(32), HHUM( 35), LHUM(35), THRS(35), 
C PEVPL35), CLCV(35), WIND(35) 
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9975 ИВІТЕ(6.1292) (MONTH(M 1), 121,3), TYEAR, IPG, (МОМТН(М,11,1-1,3), 
A IYEAR 
3956 RETURN 
С 
9007 ENTRY PRINTL (1,11) 
C 
G PRINTL FORMATS DAILY DATA FOR PRINTING 
(E INCLUDES SCALING AND SUPPRESSING ZERO RESULTS 
С 
0008 CALL ALPHA (TPRE(I), LINE(1), 25.4) 
3509 CALL ALPHA (RAIN(I), 1 ІМЕ(3), 25.4) 
0010 CALL ALPHA (РК5М(!), (1 ІМЕ(5), 25.4) 
JILL CALL ALPHA (SNOWULT) » LINE(7), 25.4) 
9012 CALL ALPHA (5МСУ(І!, LINE(9), 25.4) 
0013 CALL ALPHA (МП51(1), LIN111), 1.0) 
7214 CALL ALPHA (М05М41), 11 ІМ2(1), 1.0) 
0015 IF(II.LT.5.0R. I1-GT.10) GOTO 2 
2016 МКІТЕ (6,101) РАҮ( 1), DYR(I),+ LINE, LINL, DEWI(CI), ІНЕСІ!), 
А LINZe ОЕН2(1), HHUM( IT)» LHUMCIQ. THRSCID, PEVP(II, 
8 CLCV(I)s WIND(I) 
0017 RETURN 
0018 2 WRITE(6,102) DAYCI) , DYRUI)s LINE, ННОМ(1), LHUM([I), THRS(I), 
A CLCV(C I), WIND(I) 
3919 RETURN 
C 
0C20 LOO FORMAT('1 ",2А4,А2.144108Х,“"РАСЕ %,11,///,49Х, "MONTHLY SUMMARY D 


AF METEOROLOGIC DAYA*,/,55X,*BYU PARASITOLOGY STATION*',/4.61X, 
B'PROVO, UTAH*,//5,60X,24A4, ^2, I4, /) 


0521 101 ЕОКМАТ(1Х,А2,3Х.А4,5(2Х,А4,А2), 6X, ^4, 2,20 3X, Al) «4 4Х,46,А2,3Х,4А1, 
А 3Х,215,18,Ғ11.1.17,18) 
0022 102 ҒОВМАТ(1Х,А2,3Х,А44,5(2Х,АД4,42),1788,215,18,Т117,17,18) 
3923 END 
0001 SURROUT INE ALPHA [R,C,S) 
C 
C CCNVERT В SCALED ВҮ S INTO ALPHA CHARACTERS AND RETURN IN C. 
C (RETURNS BLANK CHARACTERS IF- ZERO) 
C 
0CO2 INTEGER М11301) /* Ly ob ig a0 GY 3° í 44." Бе 64, 
A oV 74,94 р, gaye 104,6 үүө, 124,64 135,6 144,4 15i 
5 lera! (4 |6886 156,4 20,6 214,4 221,5 239,9. 241 
С - 25%,% АЗЫҚ ы 2 mu. 28%," 294," 305 ç. зүү Sere 334, 
D 1 344, 35%," 364," 211,7 384," 394," 404.“ 41*,* 42*, 
E 5 43* ,* 44%, ° 454,! 464," 274," 4284," 49%," 504," 51%, 
F t 524,4 534,6 54%," 556,8 564,4 57%) 586,4 5944 60%, 
б е 61°, * 624,4 6а, * 64%," 654," 66%! 674: 658" 69°, 
H Ы 70%,“ Гуе 23 dit uit 744," Toe Tó (° Пее" 784, 
1 h 79%," 804," BuU, G2 8139, 84*,* 856, 86%," 874, 
J V 88*,' 89*,' 90*,* 91*,* 924," 93',' 94* ,' 95° ç ° 96°, 
K © 97%," S98',' 99%," 100',* 101*,* 102*,* 103*,' 105',* 105%, 
L © 106%," 107*,.,* 1084," 109%,” 110*,* 1114," 1127,4 113%," 115*, 
M 1154." L16*,* 1178,4 118°," 119°," 1207)" 1214,4 1224,4 123%, 
N © 1248,4 1254," 126%," 127%," 1284," 129%," 1304,4 131%," 132%, 
0 б 133%," 1344,“ 135%," 136%," 1374,4 138*',*' 1394,” 140*',* 141", 
р © 1424,4 143%," 1444," 145%,“ 146*,* 187%," 148%,” 149%,“ 150%/ 
0003 INTEGER М3(275) /“ 151%,“ 1524,“ 153%," 154," 155%," 1564,“ 157%, 
А 4 158%," 159*,* 1604)” 1614," 162%,“ 163%,“ 164%," 165%,“ 166%, 
В © 1674,“ 168", 1694," 1704,4 171%," 172%, 173%," 174%," 175%, 
С t 176%,% 177%," 178*',* 179*,* 1804," 181*',* 182%° t 183%," 184°, 
D € 185',*' 186%," 187%," L88*,' 189%," 190°," 191%," 192*,*' 193%, 
E ° 194%,” 195',.' 156%," 157%,! 198%," 1994," 220%.“ 221%,“ 202°, 
F 203% 72088,5 2054,9 2С6%,4 207*,* 208*,* 209%,4 2104,4 211 
б * 212680213421, 6 216565 215%; 2174," 218605 2194,4 22045 
H 1222010," le ig 72234226; 422547, 4 2269149 221,9 922867 2:29 
1 $1202:95045,1927:4]1:9,902:3215.1102331t 4,292340, 2355,5 2368,1 23787 2 3893 
J € 239',*' 240%,“ 241%," 242%, 243%," 244 t 245',.* 246%,“ 247%, 
K t 248*,* 249*,* 250")! 251%," 252*,* 253%," 2544," 255!,! 256%, 
( 1251064, 2589712599, 260", % 2614," 262%)" 2638," 264%, 265%; 
М " 266%," 267." 268",% 2694,4 27099,9 2114,4 2724," 273%," 27497 
0004 EQUIVALENCE (М1(152),М3(1)) 
0205 ПМТЕСБЕВИМОЦИ ЛО Tp, ОЛ БЕУ сала; бузы", 
А *,9*/, BLANK/' ус 2) 
2Сс06 R = К * 5 


0227 C(1) = BLANK 


2302 


СТУ cy c 


о 


GOMA 


{жа Cn) tee) И) 


19 
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C(2) = BLANK 


Rt = R + 0.05 
Il = КІ 
Т2 OUR ee Ee eo 


IFILL. EQO AND. I2.EQ.0) RETURN 
Ctl) = NI(T1«*1) 

C(2) = N2(T2*1] 

RETURN 

END 


SUBROUTINE CALC (Х,М) 
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CALC PROCESSES REAL DATA IN X AND RETURNS SUMS IN ROW 32, 
MEANS IN ROW 33, MINIMUMS IN ROW 34, AND MAXIMUMS IN ROW 35. 


REAL X(34,N), S(35) 
REAL BLANK/* xj 
LOGICAL ZERO 
COMMON NDAYS 

00 10 J=leN 


X(32,J) = 2.0 

X(33,J) = -109.9 
X(34,J) = 1000.0 
DD 10 I-1,NDAYS 


ІЕ(МО0(,/»3).МЕ.0) GO TO 9 

X(1,J) = (ХІІ,,/-2) + X(CI,J-10) / 2.0 
Х(32,/) = Х(32,)) + Х(1,)) 

60 Т0 10 

Х432,.) = Х(32,)) + X(I,J) 
IF(XC33,J) . LT. XCI4J)) Х(33,.)) 
[FUX(34,J4). GT.X€I» 02) X(34, J) 
CONTINUE 

DO 11 Ј=1, М 

X(32,J) = X(32,J9) / NDAYS 
ІЕ(МОО(,,3).МЕ.0) GO TO 11 
X(33,J) = BLANK 

X(34eJ) = BLANK 

CONTINUE 

RETURN 


XCIJ) 
Xt15,J) 


ENTRY SUMR (S) 


PROCESS REAL DATA IN ARRAY S AND RETURN SUM IN 5(32), 
5033), MINIMUM IN S(34), AND MAXIMUM IN S(35). 


ZERO = .FALSE. 


5(32) = 0.0 
5(33) = 0.0 
S(34) = -1000.0 
5(35) - 1000.0 
М = 0 


DO 2 I=1,NDAYS 
ІЕ(?ЕКО.АМ0.5(1).17.0.001) GOTO 2 
N= N+ L 

S(32) = S(32) + S(T) 
IF(S(36)-LT.-S(1)) 5134) 
IF(S(35).-GT.S(1)) S(35) 
CONTINUE 

IF(N.EQ.O) RETURN 

S(33) = S(32) / N 
RETURN 


S(I) 
SCI) 


ENTRY SUM? (S) 
LERO = TRUE. 
GOTO 1 

END 


SUBRUUTINE SUMI (IY) 


MEAN IN 


PROCESS INTEGER DATA IN ARRAY IY AND RETURN SUM IN 1Ү(32), 
MEAN IN IY(331, MINIMUM IN IY(341), AND MAXIMUM IN 1У(351. 


INTEGER IY(35), PLUS/*e«*/ 
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0003 
0304 
2095 
C006 
29097 
0008 
0999 
0212 
0011 
9112 
913 


0014 


0015 
0016 
0017 
9218 
0C19 
2б20 


0001 


0002 


AD 


оо О 


Сз C) СУ Сз СУ СЗ Су 69 63563 CO УС ОСУ GGG СУ СУ СУ СҮ CY GC СУ 


13 


14 


ANDERSEN, ROPER: 


CCMMON NDAYS 

Iy132)] = 0 

1Y(34) = O 

1Y(35) = 1000 

DO 13 1=1, МОАҮ5 

IY(32) = ТҮ(32) + ТҮСІ) 
IFCIYCO34) -t T. IYCI)) IY(34) = IY(1) 
ІЕ(1Ү(35).6Т.1Ү(!1)) IY(35) = IY(II) 
CONTINUE 

IY(33) = IY(32):/ NDAYS + 0.5 
RETURN 


ENTRY SUMC LIYI 


PROCESS CHARACTER DATA IN ARRAY IY AND RETURN THE NUMBER DF 


IN 1Y(32). 


1Ү(32) = 0 

DO 14 1=1, МОАҮ5 
IFCIYUI )-EC.PLUS) 
CCNTINUE 

RETURN 

END 


I 5632) = 1Y(32) + 1 


METEOROLOGIC DATA 


bo 
ko 


* * 2 * $ * * x 1 $ * $ EERE EERE EEE KEE x ox EEE OR 99 $ k $ $ 5 $ Xo x0 £ 4 $ x $ xo EEE x xx £ € $ $ £ 
* 


* 
* WEATHER DATA ANALYSIS, PART 1i 
* 

* PROGRAMMED BY PAUL RCSS ROPER 

* EYRING RESEARCH 

ж 

ж 


Xo So k k doe eo os eoo 9 x x x v gv gx oe xo OR RR OR RO x R RR xo x Ge OR ORO EEE w xx 


DECK FORMAT CCNTROL CARD 


DATA HEADER (ON TA 


DATA (ON TAPE IF DESIRED) 
COLUMNS DESCRIPTION 
1. CONTROL CARD 1-4 YEAR 
5-8 DESIRED GRAPH BY NUMBER 
2. DATA HEADER 1-4 YEAR OF DATA 
5-8 NUMBFR DF DAYS IN YEAR 
9-12 LAST WIND READING OF PREVIOUS YEAR 
3. DATA SEE PUBLICATION FOR CARD COLUMNS AND DATA 
DESCRIPTION. 
COMMON /PLOTO И XPLT(366), ITAPE 
А /PLOTL / RAIN(366), XIRR(366), YIRR(366), YNIR(366) 
B /PLOT2 / SNOW(366) 
C /PLOT3 / YHHD(366) , YLHD(366) 
D /PLOT4^ / HUMD(366) 
E /PLOT5 / ЕУАР(366) 
F /PLOT6 / WIND{(366) 
G /PLOT7 / ҮМАХ(366), YMIN(366) 
H /PLOT8 И YH5C(366), YL5C(366), 2H5C(366), ZL5C( 366) 
1 /PLOTS / YHA1(366), YLA1(366) 
J /PLOT10/  YHSS(366), YLSS(366), ZHSS(366), 7155(366) 
K /PLOT11/ YHA2(366), YLA2(366) 
Ë /PLOT12/ YHBG(366), YLBG(366), ZHBG(366), ZLBG(366) 
M /PLOT13/ YHA3(366), YLA3(366) 
COMMON /LABELS/ АХ1137), ^Y1(37), AX2(73), AY2(73), 
A BX(4) 8Y(4), XL (4), YL (4), 
B RC1(7), ІСІ(7). ВС2013), LC2(13), 
С RC3(11), 1С3(11), RC^4(13), LC4(13), 
D ВС5(11), 1С5(18), RC6(8), 1С6(16)» 
Е ВС7(12). 1С7(24) 


CREATE А DEGREE SYMBDL 


INSTITUTE, 


1974 


PE IF DESIRED) 


РЧ 
* 
Q 
E: 
Ж 
зу 


bo 
bo 
bo 


0003 
0004 
0005 
0006 
0007 
0008 


0009 
3012 
9011 


0012 


0013 
9914 
0915 
0016 
0017 
0018 


0019 
0929 
0021 
0022 
9923 
0024 
0025 
2926 
0027 
2028 
0029 


) )38 
1339 
9049 
22341 
2242 


2263 
0044 
2045 
00%6 
3C4T 
2048 


осто 


ооо 


noy cy 
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DIMENSION DEG(3), C13), NGRAPH(14) 
DATA DEG 4205961727, 136352414, 205061727/, J /791/ 
DATA 0 /101061737, 246413210, 221061737?/, K /Z06/ 


CALL SYMBL5 (J4,9,DEGC) 
CALL SYMBL5 (K,9,0) 
REWIND ITAPE 


READ CONTROL CARD 
100 READ(5,200,END=999) NYEAR, NGRAPH 
200 FORMAT(L514) 

NUM = 0 

READ ONE YEAR'S DATA 

CALL READC (NYEAR,NDAYS) 

CONTROL LCOP 
300 NUM = NUM + 1 


M = NGRAPH(NUM) 
GO TO (1,2,3,›,4,5,6,7,8,9,10,11,12,13), М 


GO TO 100 
999 CALL PLOT (12.0,0.0.-3) 
5ТОР 


СЭЖЖХЕхкх жж кжжжір(і OT 1Е2252222255252255245525442424242544%22232522552224244244 


C 
С 


PRECIPITATICN AND SCIL MOISTURE 


] CALL AXES (3.0.ЕС1.4.0.5.7,1,1С1,4,2.5,7,1) 
CALL SCALE (RAIN,NCAYS,3.00, 23.0, 0.0, 2) 
CALL SYMBL4 (-0.24,1.2,0.0T, 'MILLIMETERS',99.2,11] 
CALL SYMBL4 (0.252.850. 1, "РАЕСІРІТАТІ ОМ, , 0.0, 13) 
CALL SYMBL4 (1.39 ,2.8, 0.7, * АМО *, 0.0, 3) 
CALL SYMBL4 (1.64,2.8,0.1, ' SCIL MOISTURE?” ,2.0,13) 
CALL DATE (NYEAR ,0.2+ 2.65) 


CALL BAR (ХРГТ,КДІМ,МОАУ5) 

CALL SYMBL^ (8.21,1.3,0.07,"ІМСНЕ5”,90.0.,6) 
CALL MOIST 

GO TO 322 


Сжжежжж 353823 xo &*PLOT 2335 oboe doe do o doe $ 3k ek ooo do de Xe olo eoo 21222, 


С 
С 
С 


C 
C 


SNOW COVER 


2 CALL AXES (3.0,RC2,4,0.255,134, 193LC25 50.254,13, 1) 
CALL SCALE (SNOW,NDAYS,3.00, 12.0, 0.0, 23) 
CALL SYMBL4 (-09.27,1.2,0.07T, 'MILLIMETERS* ,90.0,11) 
CALL SYMBL^ (0.2, 2.8,0.1,* SNOW COVER’ ,0.0 + 10) 
CALL DATE (NYFAR,0.2 2.65) 


CALL BAR (XPLT, SNOW,NDAYS) 
CALL SYMBL4 (8.23,1.3, 0.07, ' INCHES* ,90.0,6) 
GO TD 300 


C * xx Xx x x Xx IO X A X *PELOT Е5222243224245444422245534244454245224524252552424. 


C 
E 
C 


RELATIVE HUMIDITY IN WEATHER SHELTER 


2 COIS AXES (3.0%ЕС3,6,0.25,11.1,1С3,4.0.25,11,1) 
CALL SCALE | (YHHL,NDAYS,2.49,1CO.0, 0.0, ^) 
CALL SCALE (YLHC4NCAYS,2.49,1^0.0, 0.0, 5) 
CALL SYMBL^ (-0.25,1.1.0,07, "РЕРСЕМТ” ,90.0, 7) 
GALL SYMRLS (2.2,2.8,241) *FELATIVE BOMEOTT Y IN WEATHER ӘНЕС TER ts 
^ 0.0,36) 
CALL CATE (МҮҒАР,0.,2,2.65і Ы 
CALL LEGEND (1,7. 2,8) 
CALL LINES (XPL T, YHHDO,NDAYS,0.01, 21] 
CALL OASH (ХРТ, УЕН ,NDAYS, 3.23) 
CALL SYMALG (825,1.1,\„)7,*РЕЕСЕМТ*,6).),7) 
СО Te 390 
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C * koko k K KOK OROK OK OK AK KEE LOT ажжк оок ЖЖЖ ЖЕКЕ ЕКЕ Ok Ok ЖК КОКК ЖК ЖОК ЖК Ж OR k k ak 


(8 DAILY DURATION ОҒ RELATIVE HUMIDITY 
@ 
r 
0049 4 CALL AXES (3.0,0С4,4.0.21,13,1,(С4,4,0.21,13,1) 
2050 CALL SCALE UHUMD,NDAYS,2. 49, 24.39, 2.20, 6) 
0051 CALL SYMBL4 (-04.22,145,0.07, ' HCURS* ,90. 2,5) 
7052 CALL SYMBL& (0.252.8,0.1. 'D^ILY DURATION OF RELATIVE HUMIDITY AT 9 
А8-100(', 2.2, 46) 
0053 CALE DATE (NYFAR ,C.2,2. 65] 
2754 CALL BAR ( XPLT4 HUMD ,NDAYS) 
055 CALL SYMRL4 (8.23,1.,5,0.07, ' HOURS ' ,9).0,5) 
93656 GO TO 300 
© 
С 
CPR ORR RR ADL СТ SRR k K kk kR ж Ж КЖ ЖЖЖЖ Ж $ EER KOK REE KARE ЖЖ Ж 
C POTENTIAL EVAPCRATICN 
0657 5 CALL AXES (3.0.ВС5,4,0.28,11,1,1С5,5,0.35,18,2) 
3058 CALL SCALE Т(ТЕУАР,МГАҮ5,3.02, 29.2, 0.2, T) 
0059 CALL SYMBL4 (—-).234,1.2,2-07, 'MILLIMFTFRS*,90.9,11) 
0060 CALL SYMBL4 (0.252.8,0.1,*POTENTI AL EVAPORATION’ , 0. 0, 21) 
0061 CALL DATE (NYEAR,0.25,2.65) 
0062 CALL SYMBLA4 1(2.0,0.5,0.С7, "5ТАКТЕПр!,).2,7) 
2263 J = NDAYS - 244 
0064 CALL LINES CXPLT{ I) ,ЕУАР(,),184,2.01,2) 
0065 CALL SYMBLA4 (7.0,0.5,0.СТ,*5ТОРРЕ0*,0.0›,7) 
2266 CALL SYMBL4 (8.30,1.3,0.07,"ІМСНЕ5”,90.0,6) 
0C67 GO TO 320 
C 
C 
CREE E eo d ERM REPL OT окка к ee retor c or Жжжж ку ЖК Үй жуу eo 
С TOTAL WIND 1 METFR ABOVE GROUND 
C 
С 
0068 6 CALL AXES (3.0,КС6,4,0.42,8,1,1(6,5,9.42,16,2) 
0269 CALL SCALE (WIND,NDAYS,2.9€4,175.0, 0.0, 8) 
20709 CALL SYMBL^ (-0.29,1.2,0.07, 'KILOMETERS*,90.0, 10) 
0071 CALL SYMBL4 (0.2,2.8,0.1, "ТОТА WIND 1 METER ABOVE GROUND*,2.2,31) 
2072 CALL ОАТЕ (МҮЕАВ,0.2,2.65) 
0073 CALL LINES (XPLT,WIND,NDAYS,0.21,2) 
0074 CALL SYMBL^ (8.3,1.4,0.C7, ' MILES*,90.0,51 
2275 GO TO 3)9 
C 
(г 
СК de xokeeck CP LOT. Tk жж кел кке ЖЖЖ ЖЖ уж ж Жж Ж ЖОК ЖК КК SLL ЖК CL ee k 
C TEMPERATURE IN WEATHER SHELTER 
(е 
C 
0276 T CALL AXES (4.0,8С7(1),4,0.5,9,1.1С7(1),5,0.5.18,2) 
0077 CALL SCALE (ҮМАХ,МГАҮ5,4.00,122.0,-22.0, 9) 
2078 CALL SCALE (ҮМІМ,МСАҮ5,4.00,122.0,-22.0,10) 
9079 CALL SYMBL4 (-0.255,1.25, ).07,* TEMPERATURE (JC)*,90.0,16) 
0080 CALL SYMBL& (0.25,3.7,0.1,*'* TEMPERATURE IN WEATHER SHELTER? ,2.,.2, 30) 
081 CALL DATE (NYEAR ,0.25,3. 55) 
2082 CALL LEGEND (1,7.0, 3.7) 
0083 CALL ZERO (1.5) * 
2284 CALL SYMBL4 (8.32,1.2,0.,27,' TEMPERATURE (JF1* .99.9,15) 
0085 CALL LINES { ХРТ, УМАХ , МОАУ5,0.21, 2) 
0086 CALL DASH (XPLT, YM IN,NDAYS,0.021 
0C87 GO TO 3) 
С 
С 
Cox xk Ж b жк жкжжжрі ОТ 8 S39 oe ок Жок Ж Жу к Ж R Ж Ж ЖЖ Ж Ж Ж Жк ЖЖ Ж K Ж оу ERE Жж Ж 
C COMPARISON OF MAX ANO MIN TEMP 5 CM UNDER 10 CM GRASS 
C 
С 
0088 8 CALL AXES (3.9, RC7(3)254,0.656$151LC7(51, 5,2. bel 252) 
0089 CALL SCALE (ҮН5С,МОАҮ5,3.02, 492.9»-10.0,11) 
0090 CALL SCALE (У15С,МСАҮ5,3.00, 40.05,-10.0,12) 
0091 CALL SCALE |. (ZH5C,NEAYS, 3.00, 42.0, -10.), 13) 
0092 CALL SCALE  (ZL5C,NDAYS,3.00, 42.0,-10.2,14) 
9093 CALL SYMBL4 (1-0. 25,1.0,0.07, * TEMPERATURE (JC)*,90.0,19) 
0094 CALL SYMBL^ (0.2,2.8,2.1, "COMPARISON OF MAXIMUM AND MINIMUM TEMPER 


AATURES*, 0.0,46) 
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2295 CALL SYMBL4 (0.2.2.1.0.07,"5 CM DEEP ІМ SOIL UNDER 10 CM GRASS COV 
AER’, 0.041) | 
0996 CALL SYMBL4 (0.2,2.6%0.07,%0М IRRIGATEO AND NON- IRRIGATED PLOTS', 
A 3.05361 
0C97 CALL DATE (NYEAR,0.2,2.45) 
0098 CALL LEGEND (255.75,2.81 
0099 CALL ZERO (0.6) 
0100 CALL SYMBL4 (8.32, 1.0, 0.07, ' TEMPERATURE (ЈЕ) ' ,90.0,16) 
0101 CALL LINES  (XPLT,YH5C,NDAYS,0.01,3) 
0102 CALL LINE (XPLT, YL5C, NDAYS, 1) 
0103 CALL DASH ( XPLT,2H5C ,NDAYS,0.04) 
0104 CALL DASH (ХР(7,715С,М0АҮ5,7.02) 
2105 GO TO 300 
C 
IM Ot KK RR аф жеке же KR ER ERE жк KEE 
C COMPARISCN ОЕ MEANS 5 CM UNDER 10 CM GRASS 
c 
0106 9 CALL AXES C3. OeRGCT (SIs 47 09656,1906 205195505 691272] 
2197 CALL SCALE (ҮНДІі,МбАҮ5,3.00» 40.0.-10.0,15) 
0108 CALL SCALE (ҮА, М№САҮЅ,3.070, 49.2%-10.9,16) 
0109 CALL SYMBL4 (-0.2551.0,0.07, * TEMPERATURE (JC)*,90.2,16) 
011) CALL SYM@L4 (0.252.850. 1, * ССМРАВІЅОМ OF DAILY MEAN TEMPERATURES®, 
А 0.0.37) 
0111 CALL SYMBL4 (0.2,2.7,0.07,'5 CM DEEP ІМ SOIL UNDER 10 CM GRASS COV 
АЕК", 0.2541) 
0112 CALL SYMBL4 (0.2,2.6,9.27,%0М IRRIGATED ANO NON-IRRIGATEO PLOTS', 
А 0.0.361 
0113 CALL DATE (МҮЕАЕ.,0.2,2.45) 
2114 CALL LEGEND (3,6.5, 2.8) 
2115 CALL ZERD (0.6) 
0116 CALL LINES (XPLT,YHAL,NDAYS,0.01,2) 
0117 CALL DASH ( XPLT, YLAL,NDAYS,0.02) 
0118 CALL SYMBL4 (8.232,1.0,0.07, ' TEMPERATURE (JF1*,90.0,16) 
0119 GO TO 390 
C 
C 
CERES EERE kxpLOT LORE REE RK жи ккк ook EREEK e £ k K x doc eee 
C COMPARISON ОЕ MAX AND MIN TEMP AT SOIL SUPFACE 
C 
0120 10 CALL AXES (3,5; EC TU3) 4410.59 B9 1,1 C7 ОТБ О 591621 
0121 CALL SCALE (YHSS,NDAYS,3.50, 60.0,-10.0,17) 
2122 CALL SCALE (Ү155,МГАҮ5.,3.50, 62.0»-10.0,18) 
0123 CALL SCALE (ZHSS,NDAYS,3.50, 60.0,-10.0,19) 
0124 CALL SCALE (27155, МСАУЅ, 3.50, 60.0,-10.0,20) 
0125 CALL SYMBLG {-0.25,1.3,0.О7,'ТЕМРЕРАТОВЕ (3С) ',9).2,16) 
0126 CALL SYMBL4 (0.2,3.3,0.1, *COMPARISON OF MAXIMUM AND MINIMUM TEMPER 
AATURES', 3.0746) 
0127 CALL SYMBL4 (0.2,3.2,0.С67,,'АТ SOIL SURFACE UNDER 12 CM GRASS COVER 
At, 050,29) 
0128 CALL 5ҮМ8( 4 (2.2,3.1,0.27, "ОМ IRRIGATED ANO NON- IRRIGATED PLOTS', 
А 0.0,36) 
0129 C^LL DATE (NYEAR 990242255) 
0130 CALL LEGEND (236. 75$, 3. 3) 
0131 CALL ZERO (0.51 
2132 CALL SYMBL4 (8.32,1.3,0.07, ' TEMPERATUPE (JF)* ,90.0,16) 
0133 CALL LINES (ХР(Т.ҮН55МОАҮ5,0.01,3) 
0134 CALL LINE (XPLT, YLSS,NDAYS, 1) 
0135 CALL CASH (XPLT,ZHSS,NDAYS,2.04) 
0136 CALL DASH (XPLT,ZULSS,ND^YS,0.02) 
0137 ба TO 3)0 
C 
Е 
C *%3 o ox жеж OX k £a D L OT 11 * $ < + x f SOY OK жж уж YOK OE ож L ESSE SLES SE SESE SEE x xv ox R K 
Ç COMPARISON ОЕ MEANS AT SDIL SURFACE 
G 
C 
2138 11 CALL AXES (3,05RCT(30444 0.5, 7, 15,05 7 5) OON Z0 | 
0139 CALL SCALE (ҮНА2.,ҚОАУ5,3.20, Siete toe onc | | 
0140 CALL SCALE  tYLA2,.NDAYS,3. 00, 50-0 10.022) | 
7141 CALL SYMBL4 (-2.25,1.7%2.07)"ТЕМРЕРАТЦРЕ (JC) ,90.0,16) | 
012 CALL. 5ҮМРІ Ф (0.2,2.8,9).1, "ССУРАВІЅСМ ПЕ DAILY MEAN TEMPERATURES”, 
A 019,37) 
)143 CALL SYMRL4 (3.2.24 090.07, Ot SOIL SURFACE UNDER 10 CM GRASS’, 


^ 2.2.33) 
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0144 CALL 
A 
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SYMRL4 (0.2,2.6,0.07,%0һК IRRIGATED AND NCN- IPRIGATED PILOT S'S 
2.2.36) 


0145 CALL DATE (МҮЕАВ,0.2,2.45) 
0146 CALL LEGEND (356.5,2.81 
0147 GAL ZERO (3.2) 
0148 CALL SYMBL4 (8.32,1.0,0.07,' TEMPERATURE (JF)*',90.0,19) 
J149 CALL LINES ( XPLT ,YHA2 4NDAYS,2.21,2) 
0150 CALL DASH UXPLT, YLA2,NEAYS, 2.22) 
0151 GU TG 590 
C 
C 
CeO K KOK oe REPL OT L2 *** ORE жеке фика IR ЖК ЖК eot x eee doceo 
C COMPARISCN OF MAX AND MIN ON BARE GROUND 
C 
C 
0152 ІЗ CAUUPAXES (5.О0,РСТ7Т({2),4,0.5,11,1,1{С7(3),5,0.5,22,21 
0153 CALL SCALE (ҮНВС, NCAYS,5.,00, 8).0,-27.9,23) 
015% CALL SCALE (YLBG,NECAYS,5.220, 82.2,-20.0,24) 
C155 CALL SCALE (ZHRG&,NDAYS,5.00, 80.0»-20.0,25) 
0156 CALL SCALE 427186, МСАҮУ5,5,. 00, 82.),-27.9.26) 
б157 CALL SYMBL4 (-0.25,2„0,0.07,*ТЕМРЕЁАТОВЕ (J5JC)*°,99.9,16) 
0158 CALL 5ҮМВІ ё (0.2,4.8,0.1, 'CCMPARISON CF MAXIMUM AND MINIMUM TEMPER 
AATURES*, 0.0, 46) 
PSS CALL SYMBL4 (0.2,4, 66, 0.08, “АТ SOIL SURFACE GN BARE GROUND СОМ”, 
А 0.0.33) 
0160 CALL SYMBL4 (0.25,4.52, C. 08, IRRIGATED AND NON-IRRIGATEO PLOTS’, 
A 0.0,33) 
0161 CALL DATE (NYEAR,0.255. 3T) 
0162 CALL LEGEND (2,6. 75,4. 8) 
9163 CALL ZERO (1.2) 
0164 CALL SYMPL^ (8.32,2.9, 09.07, * TEMPERATURE (JF)*,92.2,16) 
0165 CALL LINES (XPLT , YH8G,NDAYS,0.01, 3) 
7166 CALL LINE (XPLT, У ВС, NDAYS, 1) 
0167 CALL DASH (XPLT,ZHBS,NDAYS,9.94) 
0168 CALL DASH (XPLT,ZULBG,NDAYS,0. 02) 
0169 GG TO 3202 


COMPARISON OF MFANS ОР BARE GROUND 


C 
G 
C**stxkkàbwkkkSXkE&x*ERPLOT. 1 SHEE ERE RE RE RE Ж EEE HEE k k ЖЕ EEE RR EKER KOR EEE telle 
C 
С 


/PLOT10/ ҮН55(366)» YLSS(366), ZHSS(366), ZLSS(366) 
/PLUTI1/ YHA2(366), YLA2(366) 
/PLOT12/ YH8G(366), YL8G(366), ZHBG(366), 71186G( 366) 


С 
0170 13 CALL AXFS (3.2.РС7(3).4,9.5,7,1,1С7(5),5,2.5,14,2) 
0171 CALL SCALE (ҮНАЗҘЗ,МГАҮ5,3.00, 50.0,-19.0,27) 
0172 CALL SCALE (Ү(АЗ,МГАҮ5,3.00, 50.0, -10.0, 28) 
0173 CALL SYMBL4 (-0. 25, 1.0, 0.07, ' TEMPERATURE (JC)' ,90.0,16) 
0174 CALL SYMBL4 (0.2,2.84,0.1, * CCFPARISON OF DAILY MEAN TEMPERATURES®, 
А 0.0.37) 
0175 CALL SYMBL4 (0.2,2.7,0.07, * ON BARE GRCUND CN IRRIGATED*',0.2,27) 
9176 CALL SYMBL^ (0.2,2.6,0.07,"АМО NON- IRRIGATED PLOTS*,0.0,221 
9177 CALL DATE (МҮЕАВ,0.2,2.45) 
0178 CALL LEGEND (3,6.5,2.8) 
179 CALL ZERO (2.5) 
2182 CALL SYMBL4 (8.32,1.0,0.07,* TEMPERATURE (JF)'*',92.2,16) 
0181 CALL LINES (ХРЕ Т, ҮНАЗ,МОАҮ5, 0.01, 2) 
0182 CALL CASH (XPLTYLA3,NDAYS,0.23) 
0183 GJ TO 390 
0184 END 
0001 BLOCK OATA 
3002 COMMON /PLOTO И XPLT(366), ITAPE 
А ҮРІСТІ / RAIN(366), XIRR(366), YIRR(366), YNIR(366) 
B /PLOT2 / SNÜOW(366) 
С /PLOT3 / ҮННО( 366), YLHO( 366} 
D /PLOT^ и HUMD(366) 
E /PLOT5 / EVAP(366) 
F /PLOT6 / WIND( 366) 
G /PLOT7 / YMAX(366), YMIN( 366) 
H /PLOT8 / YH5C(366), Ү(5С(366)» 2Н5С (366), 715С(366) 
I /PLOTS И YHA1(366), YLA1(366) 
J 
K 
L 
M 


4704 NTI, VHA AAY. VI AAI AR EAM 


226 


0093 


0004 
0005 


9906 


0007 


2998 


9929 


0010 


0011 


0012 


0013 
0014 


0015 


2716 


ICL? 


0001 


0002 
0003 


3024 


C 


GGG CIC 


` 
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COMMON /LABELS/ A AX1(37), AY1(37), АХ2(73), АҮ2(73), 


А BX(4), BY(4), XL (C^), YL (^4), 

B ЕСІ(7), {С1(7), РС21(13), ІС2(13), 
C RC3(11), LC3(11), RC^4(13), LC^( 13), 
D RCS(11), LC5C(18), RC6t(8), 1С6(16), 
E РС7(12), {С1(24] 

TAPE UNIT NUMBER 

DATA ITAPE /5/ 

DATA | ЮСІМІСІ 7* D ', © =t, * 25-*, * =", * 50-1, * aa 
A € 75-*, * ) +, %- “ = 1%, 4- ', !'— 2 ', 
в .-. 4,4 3 1/ 

DATA RC2,LC2. /* 0 ', * 25-*, * 50-*, * 75-*, *100-', *125-*, 
A '150-*, !'175-*, *200-*, !'225-*, *25)-*, *275-*, 
p *300-*, ° 0%, *- 1%, !'-2 t, = 3 °, "= 4 P, 
È 4. 5», '- 6 ?, 4.7», 4-4 ж, .- 9 ', t= 10°, 
0 - 11%, t= 12*/ 

DATA = RC3,LC3 /* 0 ', t 10-*, © 20-*, * 30-*, * 40-', * 5Q-*, 
А ° 60-', * 70-*, * 80-', * 90-*, 7100-87, * 0 

t- 10', "= 20% “- 30% t= 40%, "= 50%, '- 69! 
С t- 70%, = 80%, *- 90%, “-100%/ 

DATA RC4,LC4  /* O i, * 2-*, * а-в, “б 6-8, * B=", * IO-*, 
А о = е 14-', ы 16-!, i 18-*, d 29-96 f 22-?*4, 
В “ 24-', % 0 ,, е. 2 um %.- % ., “.. 6 * s .. 8 * 4 
C .- 10% Ң- 12% "= 14% *- 16%, "- 18%, *- 20°, 
D Э AUG Че A 

DATA RES, LCS /* 0%, 2-5, * 4-%, * 6-", nO 
A € 12-", © L4-%, ° 16-!, * 18-*, ! 2у-*, ° 3.*%, 
В “0 ”, ° — a UG %1 ”, 0 = 0 *2 °, oS 0.4, 
C *3 ', "= 0,19, %% ', t= 2„*, +5 *, *- фо, 
n '6 i. 5-1.%, 9T .. "= det, 78 ./ 

DATA RC6é4LC6ó /* 0%, * 40-*, * BO-*, *120-*, !160-", “200-", 
^ *240-*, '280-@,* t, 10 0. t= 2', 5 t, 
R iz 5%, *0 1, = 7%, “5 °, t= 19°, 70 Ос 
C .. 12”, *5 * 4 9— 15°, 0 ©, t= 17°, с ° 

DATA — RC7,LC7 /%-30-!, *-20-', *-10-', * O *, ' 10-*, * 20-", 
A * 39-', t 40-*, ! 50-4, е 60-*, * 70-*, * 80-', 
в .-. -2%, %2 °, = -4%, 4 б, = 14, °4 ДЕ 
С тс 2, “2 ., %- 5%, %0 4, t= 6%, %8 dc 
D C= 84, %6 ', "= 10%, '4 %, “əң 124% %2 О 
Е *- 14%, %0 *, "= 15%, '8 4, %- 17%, %5 “/ 

ОАТА BX ,BY /2*0.0, 2%7.94, 4*0.0/ 

DATA XL (YL /3.99, 2*0.0, -0.04, 2%0.0, 2*1.34/ 

DATA AX1,AYl] /02%7.94,3%7.27,3%6.61,3%5.,94,3%5,29,3%4.,61, 

A 3*3.94,3*3.,29,3*2.61,3*1.96,3*1.284,3*0.67,2*2.09, 
B 0.03,2*0.0,0.03,2*0.0,0.03,2*0.0,0.03,2*0.0, 
@ 0.03,2%0.2,9.03,2%40.9,0.23,2%0.92:29.03,2%92.92» 
D 0.03,2*0.0,0.03,2*0.04,0.03,2*0.0,0.03,2*)2.0, 
E 0.03/ 
DATA AX2 /2%7.546, 3%7.60,3%7.27,3%6.94,3%5.61,3%5.28, 
А 3%5.95,3%5.62,3%5.29,3%4.95,23%4.61,3%4.28, 
R 3*3.94,3*3.62,3*3.29,3*2.95,3*2.61,3*2.29, 
C 3*1.96,3*1.62,3*1.28, 3*40.98,3*0.67, 3*0. 34 ,2*0.)/ 


DATA AY2 /-0.03,2%0.0,-0.03,2%0.0,)-0.02,2%0.0,-0.03,2%0.0, 
-0.23.,2%0.0.-0.03,2%2.9,-2.093,2%0.0,-0.03,2%0.0, 
-0.034,2*0.0,-0.03,2*0.0,-0.03,2*0.0,-0.03,2*0.0, 
-0.23,2%02.0,-0.03,2%0.0,)-0.03,2%0.0,-0.093,2%0.0, 
-0.93,2%0.0,-9.23,2%0.0,-9.93»2%9.9»-22.93,2%0.0, 
-0.03,2%0.0,-0.03,2%0.0,-0.03.2%0.0,-0.03.,2%0.0, 
= C 037 


ТГП оО о ошо 


END 


SUBROUTINE AXES (HT,X,NXC,DX4,NISM1I,; YNYC,0Y4,N2,M21] 


GRAPH А BOX OF HEIGHT HT WITH THE MONTHS PLOTTED ALONG THE ВОТТСМ. 
ALSO LABEL THE BOX WITH APRAY X ОМ THE RIGHT AND Y ON THE LFFT. 

DX IS THE DISTANCE BETWEEN EACH LABLE. N1 IS THE NUMBER ОҒ LABELS 
ANO M1 IS THE STEP BETWEEN LABLES. THE SAME IS TRUE FOR ARRAY Y 
WITH CY, М2, AND M2. 


DIMENSION X(N1):* Y(N2) ü 
CCMMON /LABELS/ АХ1(37), АҮ1(37), AX2(73), АҮ2(73), 
A BX(4), BY (4) 

DATA NC CUNT 1% 
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0005 
0006 
2997 
3008 
0099 
0319 
0011 
9312 
9013 
0014 
3215 


0016 
0617 
0018 


0019 
0020 
0021 
0922 
0023 
9924 
3025 
9026 
9027 
0028 
0029 
0935 
0031 


22932 
0033 
2034 
0035 
0036 
0031 


0001 


2202 
0003 
0004 
0005 
0006 
0007 
0COB 
2009 
0010 
0011 
2012 
0013 
0914 
0015 
0016 
0217 
0018 
0019 
0020 
0021 
2222 
0023 
0024 
29229 


ова 


СЗ СУ СУ CY СУ СУ СУ С» 


19 


12 


13 


14 


12 


20 


39 


ANDERSEN, ROPER: METEOROLOGIC DATA 


IF(NCOUNT.NE* 1) GO TO 10 
CALL PLOTS (12.0,0.0,-3) 
CALL PLOT (2.0,1.0,-3) 

GO TO ll 

CALE PLOT (0.0,6.5,-3) 
CALL PLTMRK (-2.9,0.0) 
NCCUNT = NCOUNT + 1 
IFCNCCUNT.EC.5) NCOUNT = 1 
RY(2) = HT 

BY(3) = HT 


CALL SYMBL& (2.0,9.2035*0.07,* JANUARY FEBRUARY 


APRIL MAY JUNE JULY 
BTOBER NOVEMBER DECEMBER” 50204131) 
CALL LINE (АХ1,АҮ1,37,1) 
CALL PLOT (9.0,0.27,-3) 


CALL SYMBL4 (0.0,-0.115,0.07,*1 15 1 
ATIS 1 15 1 15 1 15 1 
а 15 1 15 1 15',2.0, 128) 


CALL LINE (АХ2,АУ2,73,1) 

CALL LINE (вх, Ву, 4,1) 

DYY = -0.03 

DO 12 {=1›,\М2,‚М2 

CALL SYMBLA (7.9,0YY,0.07, Y( I3, 0.0, NYC) 
DYY - DYY * DY 

CONTINUE 

DXX = -0.03 

DO 13 Ігі,М1,М1 

CALL SYMBL4 (-2.22,DXX,0.07, KET 2,0. De NXC) 
DXX = OXX + DX 

CONTINUE 

GO TO 14 


CRAw ZERO LINE АТ HEIGHT HT. 


ENTRY ZERO (HT) 


BY(2) = HT 

ВУ(3) = HT 

CALL LINE (ВХ(2),8Ү(2),2,1) 
RETURN I 
END 


SUBROUTINE DASH (Х,УҮ,М,5) 
SUBROUTINE DASH WILL DRAW DASHED LINES 


X ARRAY 
Y ARRAY 
NUMBER CF POINTS 
LENGTH OF DASHES 


Q Z —< x 


DIMENSION X(N)» Y(N), А(2), B(2) 
SS = 5 Ж 22-0 


OX = X(T) = X(I-I) 
OY = Y(I) = Ү(1-1) 

H = SQRT(DX*DX + DY*DY) 
DX = S * DX / H 

DY = S ж DY / H 

A(1) = X(I-1) 

B(1) = Ү(1-1) 
CONTINUE 

IF(H.LE.S) GO ТО 20 
А(2) = А(1) + OX 
B(2) = B(1) + DY 
CALL LINE (A,8,2,1) 
IF(H.LE.SS) GO TO 30 
А(1) = A(2) + DX 
B(1) = 8(2) + DY 


H= Н = SS 
GO TO 10 

A(2) = Х(1) 
8(2) = Y(I) 


CALL LINE (А,В,2,1) 
CONTINUE 


AUGUST 


MARCH 
SEPTEMBER 


bo 
bo 
~“ 
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0026 GO Т0 99 
С 
С SUBRDUT INE LINES WILL MAKE THE LINE OARKER AND WIDER BY DRAWING 
С М NUMBER DF LINES 
C 
С X = X ARRAY 
C Y = Y ARRAY 
£ N = NUMBER OF POINTS 
C D = DISTANCE BETWEEN LINES 
G M = NUMBER OF LINES 
C 
2027 ENTRY LINES (Х,Ү,М,О,М) 
0029 DO 40 1=1,М 
0030 CALL LINE (X,Y,N,1) 
0C31 CALL PLOT (0.0,0,-3) 
2032 OY = DY - D 
0033 40 CONTINUE 
9934 CALL PLOT (0.0,0Ү,-3) 
3035 GO TO 99 
0036 ENTRY BAR (Х,Ү,М) 
0037 SS ER) 
0038 CALL PLOT (X(1),SS,3) 
C939 DO 50 Iz2,N 
3042 CALL PLOT (X(I-1)0, YCI), 1) 
0041 CALL PLOT (X(I),YCI)4 1) 
0942 5) CONTINUE 
0343 CALL PLOT (X(N),SS,1) 
0044 99 RETUPN 
0045 END 
2921 SUBROUTINE DATE (МҮК,Х»Ү) 
С 
С GRAPH DATE SPECIFIED BY NYR AT POINT (X,Y) 
r 
0002 CALL SYMBL4 (X,Y,0.C7, ' PROVO, ОТАН,*,0„0,12) 
0093 М = NYR-1969 
0004 GOTO (1,2, 3,4,5), М 
0005 1 CALL 5ҮМРІ4 (Х%0.178,Ү,0.07,11970!,0.0,4) 
0006 RETURN 
3C07 2 CALL SYMRBLA (X*0.78, Ys С.С7, ' 1971' ,0.0,4) 
3098 RETURN 
0CO9 3 CALL SYMBLA^ {х+0. 78, У, 0.07, 1972*' 40.0.4) 
9212 КЕТЕМ 
0511 4 CALL SYMBL^ (X*J478,Y4,2.07, *1973',0.0 5^1 
0012 RETURN 
0213 5 CALL SYMBLA (X*2.785,Y40,07, ' 1974 * 19.994) 
9214 RETURN 
C 
C 
2215 ENTRY LEGEND (N,X,Y) 
G 
С GRAPHS ONE OF FNUR LEGENOS SPECIFIED BY М AT POINT (X,Y) 
C 
0С16 “GOTO (10,11,12,13),М 
DENT 12 CALL SYMBLG (Х,Ү,0.017, MAXIMUM?” 0.07) 
0018 CALL SYMBLA^ (Х,Ү-0. 1,0. 07, * MINIMUM * ,0.2, 7) 
219 RETUKN 
3) 29) 11 CALL SYMBL4 (Х,Ү,0. 07," МАХ МСЧ- ТЕК? 0.0, 11) 
0021 CALL SYMBLA^ (X4,Y-0.14,0.07,'MIN NON- IRR*,0.0,11) 
31322 CALL SYMBLA4 (Х,УҮ-0.22,0.07,”МАХ ІЕРІСАТЕО",0.0,13) 
DNS) CALL SYMRBLA^ (Х,Ү-2.32,90.07,'М1М IRRIGATED*4,0.0,13) 
0024 КЕТЈЕМ 
2225 12 CALL SYMBL4 (X5,Y,2.27,'MEAN МОМ-ТЕРІСАТЕО? , 0.0,18) 
J226 CALL SYMBLA^ (Х,УҮ-9.1.,0.27,"МЕАМ ІЕЕІСАТЕО",2.9,14) 
0027 13 RETURN 
2228 END 
0001 SUBRDUTINF SCALE ( X, №, S» YMAX,YMIN, IO! 
с ë 
C STALE DATE IN АРКАҮ X DIMENSICNFO BY М AND RETURN SCALED DATA IN 
С bd dS S IS THE MAXIMUM HEIGHT OF SCALED DATA, YMAX HAS MAXI MIM 
í ALLOWED DATA ANC YMIN THE MINIMUM. ӨНБИӘШІРЕ БАТ АШЕХСЕЕО ЕТЕ ЕСЕ 
C BCUNDS, THE IO UMBER WILL BE PRINTED ALONG wITH THE DATA. 
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023232 
0003 
21324 
0005 
0006 
3997 
^CC8 
2259 
0019 
0011 
2212 


EOZ 


0co3 
CCO^ 


Сә «x2 
ош 


OD te 
Tr Ve 


228053 
POR 
БЕЗ 
ae 
ocli 
(OZ 


JC13 
2214 


38) 1а] 


ра азу СЗ 


10 


135 
191 


3 


231 


ANDERSEN, ROPER: METEOROLOGIC DATA 


DIMENSION X(N) 

SS = S / (ҮМАХ-ҮМІМІ 

ОП 10 Is1,N 

IFOXCIT.LT.YMIN) WRITE(6,121) 10, X4(I), YMIN 
IF(OXULI).GT.YMAX) WRITE (о. 100) ID, X(T), YMAX 
XCTI) - 55 eT = YMINS 


CONTINUE 

RETURN 

FURMAT( CALL бУІ2УЗХУК ТОРОУ 5 EXCEEDED УЕ 1) 

FORMAT(* CALL ',12,5X,F10.2,"* WAS BELCW ”,Ғ8.1) 

END 

SUSPCUTINE КЕЛІС (ТУРҒАЗУМРАУЫ) 

КЕ Е YEARS CATA Sete tele gets fey jl BIAIS Wale FE TPE SIG riko) JUS ey (ees 
HEALLr CONTAINI,G TRE ҮЗАК, NUMRER OF DAYS IN YEAR ANO LAST 
RECUFÜEC WIND VALUE CF PREVICUS ҮРАН, КЕТУДІ NUMEER ОР DAYS IN 
NOAYS., 

CCMMGN /PLCIC / XPLT(36o0)» [ТАРЕ 

A ZU GT SZ TPRc(362), ХІкК(356), YIRK( 556), YNIR( 366) 

Р ОСТ УУ 650) 
C /PLCT3 / HHUN(3c6) , ОНОМ 306) 

L /PLCT4 / THFSl360) 

= /PEGUS 7 РБЕУР(5>66) 

F /PLCTo И WINC{ 306) 
С /Р\СТТ / ҮМАХ(366), YMIN(366) 
H ZP To r УВС Scouse ҮШЫС( s 6C) ZAHIC 366) 7155€ 030690) 

I /PLUTS / YHAL(366), YLA1(535696) 

J ҮРЕ ТҮҮЛ SV PSSCS66) s БУ S366), ZHSS(3606) r ZËS5 3609) 

K /VLUTI1/ ҮНА2{366), Ү{А2( 566) 

L /PLOUT12/ ҮҺЕСІ 366), YLBG(366), ZHBG(366) , ZLB5( 366) 

M /PLOI13/ YHA3(366), YLA3(366) 

COMMON /LABELS/ DUNY(2258)5» XL(4), YL(4) 

REAL Ĉr (11) / s rU = ov Газы cu — 0 у= gg. V 

А 4 30-!, ? -*; e 40-', % -!, 4 50 “/ 
REAL ЕНОМ, LHUM, ЛІКАМ МІС», IRww, IRDW ,O0LOw 

AVE(X.Y) = (xX+fY)/Z% А 

REAVIL TAPE 22) 2 №0=С55) IYF :NDAYS, OLOW 

ҒӘКМАТ(214,Ғ4. O) 

ТЕУ ARs Ee LY РОЯ GO TO 3 

Dj lz1»,NLAYS 

м“ САО(ІТАРЕ , 2)Ј0 ,. ЕМ№0=559)} 

Gü TO 1 

DO < I=l1l+NLAYS 

КЕАС(ІТІРЕ,201%Е 50-595) RAIN, SNOW, SNCV( I) IRww, IRDWs, NIWWs 
A NID HHUM( I), LHUM(I), THRŠ(I), РЕУР(1), 

B CLCv, WINC(I), YMAX(I), YMIN(I), 
@ YH5C( 1)» YL5ECUI), YHSS(I), YLSS(I), YHBG(I), 
D YLBG( I). ZH5CUI), 715С(1), 2Н5541), 715541)» 
Е ZH8G(1), 21860641) 

ЕОКМАТ( ЭХ,ҒЗ.2,2Ғ2.1,2Х,2Ғ32.1,1Х,2Ғ3.0О,Ғ2.0,Ғ3.1.Ғ2.0,Ғ3.0,/», 
А 5Xs;cF32036X, 12F 3243) 

XP0T(1)52= | 

TPRE(I) = RAIN + SNCh*2.,L 

YIRR(I) = -1..) 

YNIR(I) = -1.0 


IFINI WWeNE.sJe)) YNIR(I) (NIWW-NIDW)*1J22. J/NID» 
IF(IRww.NE.0.0) YIRRÍI) ( IRWW-IRDwW)*129. 3ZIRDn 
IF(ULOWw.CGT.MIND(I)) CLCw = OLDW — 1000.0 

HOLD = wIND(I) 

“ІМО(І) = (wlNutI)-CLOW) * 1.6093%0.05 

OLDW = HOLD 


YHALUI) = АУЕ(ҮН5С( 1), Ү(5С(1)) 
YLAL(I) = АУЕ(2Н5С(1І1),715С(Ч1)) 
YHA¿ (I) = SVE YASS Т). Yi S SI) 
NIENTE Е АУЕ АНБЕК) 
YHAS(I) = Ауе(Үһоо(!).Ү1ЗС(1)1 
NIA SUCI = AVE(ZHRO (T!) yZLBGU1)] 
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O003< 4 CCNTI WUE 
PAS И УБИЕ IMLS TS 
NC a4 CALL SCALE LXPLT, NCAYS , 7. 84 , YCA YS, ао АЙ 
2255 RETUSA 
6 £95 WRITE(O,5)J.) 
que iT 5202 FCKMAT(*-«x*»»»3ERPCG IN INPUT DATA FROM ТАРс $x»x*x**!,//) 
2236 STOP 
C 
@ 
Cea cNTRY MOIST 
224- (АЦ [EET (9.0,1.2.,-3) 
3i Jy N = 5 
9842 Oe ТЕП SIE 
е3 ПБ GYA ИН И otro la) Ge yw we 
C044 N = А + 1 
5655 YIFR(N) = YIRR(T) 
CC46 XIRR(N) = XPLT(I) 
2C47 20 CONTINUE 
JC^4o GAINS © AINE (ҮР БЕ чә DSC 3 5020762012) 
CC4y CALL LINE (XIRR YIRR N 1) 
SOOO Қ = 0 
So Do 59 [zl1z15259€6 
axe ШЕМ ИУ 500500) GE TO 3C 
3:253 М = М + 1 
5054 XIRK(N) = ХРТ) 
JCS YNIR(N) = YNIR(I) 
3256 32 CCNTINUE 
ШЕРУШІ CALL SEALS У МЕТУМ Е УО ОЛ STO 91320 
(66:515) CALL CASH (ХІЗК,ҮКІК,М,С.04) 
22595 ЛЕ TB (2-61627-219-9) 
206) CALE CINE XL » YL 4, 4.10) 
ee UY = -9.05 
EDO 09 1) Ігі,4і1 
0065 CAEL SYMBIUS (= с2 v D Ys 7.2 1.СЕСІ),9.0,4) 
UCO+ OY = DY + 0.13 
(06 LO CENT ITNUE 
С 066 САПЫ УЛЕС (-0222,0.459%50. Gis РЕКС ЕЛ IS Jr. PT) 
5207 CALL SYMBLA4 43.2.1. 52,0. CT, SOTE MUISTURE (IRRITATED UP OL ONTAS) 
SIG CALL SYMBOLS (>.2.1.65,0.27,%<011 MOISTURE (NON-IRRIGATEO)',2.25,529) 
¿Cos CALL PLOT (-2.51»-1.2,-3) 
eu Uf, RETURN 
CC71 ENC 
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